TMemoryStream & Delphi

[кондратий]

проблема у меня такая ...

создаётса мемористрим
открываетса файлы и обрабатываютса

как правильно убить програму во время его выполнения ?

вот от такой конструкций умирает вся програма ...

procedure TPluginForm.bCloseClick(Sender: TObject);
begin
if (TargetStream <> nil) and (MessageDlg('Do you want cancel this job?',mtInformation,[mbYes,mbNo],0)=mrYes) then
begin
try CloseFile(FM) except end;
try CloseFile(FT) except end;
TargetStream.Free;
EtalonStream.Free;
end;
Close
end;

что делать ???
как лечить ???

[RMLN]

а хрен его знает

ATYLA2RMLN: Спасибо, што уведомил нас о своем незнании...

[Atyla]

ХМ...
А тебе не кажется извращением на протяжении выполнения всей программы держать файлы открытыми...
Не проще их засосать в память...
А в какой ексепшин вываливается программа :
А потоки ты не юзаешь, которые обращаются к стримам, во время их закрытия :