проблема с удалением файла

[katttes]

я пишу небольшой инсталлятор. У меня есть две прцедуры:

procedure TForm1.SetupP;
begin
FileCreate('C:\result.txt');
SetFileAttributes(PChar('C:\result. txt'),FILE_ATTRIBUTE_NORMAL);
end;

procedure Tform1.DeleteP;
begin
DeleteFile('C:\result.txt');
end;

каждая из процедур вызывается при нажатии кнопки(кнопки разные).
Проблема заключается в том, что если нажать кнопку установить, а затем удалить, то файл не удаляется. И удаляется он только в том случае если программу перезапустить.

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

[p51x]

FileClose забыли...

[Kotofff]

Обязательно при создании файла функцией FileCreate нужно запоминать его дескриптор.
И потом, как сказал p51x, закрывать его по дескриптору, т.е. чтобы программа "отстала" от файла.

var
  h:integer;
begin
  h := FileCreate('C:\result.txt');
  SetFileAttributes(PChar('C:\result.txt'), FILE_ATTRIBUTE_NORMAL);
  FileClose(h);

[katttes]

огромное вам спасибо! очень помогли.