[Alloc]

Спасибо за ответ.
Я вот попробовал сделать вот так:

Код:

try
  Res:=TResourceStream.Create(Hinstance, PChar('devcon'), PChar('EXEFILE'));
  try
    Res.SavetoFile(PChar('devcon.exe'));
  except
  on Exception do
      ShowMessage('Resource not found');
  end;

finally
  Res.Free;
end;

но по прежнему не работает как должно... вроде бы все правильно..

интересно то что если заключить саму функцию в Try; Except - то все работает как надо...

Код:

  try
    ExtractRes('RCDATA','devcon', GetTempDir+'devcon.exe');
  except
  on Exception do
  ShowMessage('ERROR');
  end;

не могу понять почему...