[Alloc]

Здравствуйте!

Научите пожалуйста как правильно организовать исключения на примере следующей функции:

Код:

function ExtractRes(ResType, ResName, ResNewName : String):Boolean;
var
  Res: TResourceStream;
begin
  Result:= False;
  Res:=TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  Res.SavetoFile(ResNewName);
  if FileExists(ResNewName) then Result:= True else Result:= False;
  Res.Free;
end;

Проблема в том, что в случае если не получается сохранить ресурс программа выдает соответствующее сообщение и после чего дальнейший код не выполняется...

а мне нужно вывести сообщение об этом, допустим:

Код:

if ExtractRes('EXEFILE','program', GetTempDir+'program.exe') then
   RichEdit.Text:= 'Файл распакован.'
else
   RichEdit.Text:= 'Файл НЕ распакован.';

В моем случае, если происходит ошибка распаковки ресурса то дальнейший код не выполняется... т.е. сообщения "Файл НЕ распакован." не видно...

Помогите грамотно переделать функцию пожалуйста. Буду вам очень признателен.