Ошибка Unit1.pas(100): Statement expected, but expression of type 'Boolean' found

[sedoq]

Запускаю приложение закрываю а файл в C:Program Files остаётся а когда из delphi просто запускаю и закрываю то всё удаляет из за чего и можно ли это исправить ?

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
DeleteFile('C:\Program Files (x86)\1.exe');
DeleteFile('C:\Program Files\1.exe');
DeleteFile('D:\Program Files (x86)\1.exe');
DeleteFile('D:\Program Files\1.exe');
DeleteFile('f:\Program Files (x86)\1.exe');
DeleteFile('f:\Program Files\1.exe');
DeleteFile('e:\Program Files (x86)\1.exe');
DeleteFile('e:\Program Files\1.exe') ;
DeleteFile('g:\Program Files (x86)\1.exe');
DeleteFile('g:\Program Files\1.exe')   ;
DeleteFile('h:\Program Files (x86)\1.exe')  ;
DeleteFile('h:\Program Files\1.exe')   ;
DeleteFile('j:\Program Files (x86)\1.exe') ;
DeleteFile('j:\Program Files\1.exe')  ;
DeleteFile('k:\Program Files (x86)\1.exe');
DeleteFile('k:\Program Files\1.exe')  ;
DeleteFile('l:\Program Files (x86)\1.exe') ;
DeleteFile('l:\Program Files\1.exe')   ;
end;
end.

[Аватар]

DeleteFile('C:\Program Files (x86)\1.exe');
DeleteFile('C:\Program Files\1.exe');
DeleteFile('D:\Program Files (x86)\1.exe');
...

Можно было бы и в цикле удалить

[sedoq]

DeleteFile('C:\Program Files (x86)\1.exe''C:\Program Files\1.exe'); ну и так пробую он удаляет только например если еще скопирую на рабочий стол и запущу тогда удалит а если сам файл запускаю из папки C:\Program Files то не удаляет возможно сделать удаление по закрытии приложения ?

[Пепел Феникса]

приложение не может удалить само себя, без помощи сторонних средств.
например создать bat файл с удалением себя.
и так же путь к самому себе это ParamStr(0).

а то у меня диска С то и нету