اما این کد بدون مشکل برای من کار میکند. مثال:
procedure TForm1.Button1Click(Sender: TObject);
var filename: string;
begin
filename := 'C:\temp\05\05.zip';
if FileExists(FileName) then
if MessageDlg('Do you really want to delete ' + ExtractFileName(FileName) + '?',
mtConfirmation, [mbYes, mbNo], 0) = IDYes then
DeleteFile(FileName);
end;