Ресурсы в программе

[Legeardo]

Res := TResourceStream.Create(Hinstance, 'build', 'EXEFILE');
        Res.SavetoFile(SaveDialog1.FileName);
        FreeAndNil(Res);
        patch(SaveDialog1.FileName,'123');

Вот есть такой код который извлекает из себя ресурсы; Затем этот файл сразу же патчится. Переодически вылетает ошибка которая говорит что такой файл отсутствует. Я так понял Res.SavetoFile не успевает извлечь файл?

[FaTaL]

По идее пока не закончиться SavetoFile, дальше не должна программа продолжаться.
Перед тем как патчить, сначала сделай проверку на существование файла.

[Legeardo]

Я делал. Пишет вот что
First chance exception at $75934598. Exception class EFOpenError with message 'Cannot open file "123.exe". Процесс не может получить доступ к файлу, так как этот файл занят другим процессом'. Process Programm.exe (3236)
вот код процедуры которая патчит

procedure TForm4.patch(s,r: string);
var f:TfileStream;
    c:array[0..30] of char;
begin
  if FileExists(s) then
  begin
    try
      f:=TfileStream.Create(s,fmOpenWrite or fmShareDenyNone);
      f.Seek(f.Size,soFromBeginning);
      StrPCopy(c, r);
      f.Write(c,sizeof(c));
    finally
      FreeAndNil(f);
    end;
  end
  else
  begin

  end;
end;
Я же перед тем как вызвать данную процедуру освободил ресурсы FreeAndNil(Res);

[northener]

Сообщение от Legeardo

Я делал. Пишет вот что
First chance exception at $75934598. Exception class EFOpenError with message 'Cannot open file "123.exe". Процесс не может получить доступ к файлу, так как этот файл занят другим процессом'. Process Programm.exe (3236)

А файл, который нужно патчить действительно так и называется?