function DelBeiNeustart(FName: TFilename): boolean; 
begin 
  if FileExists(Fname) then 
    result := MoveFileEx(PChar(FName), nil, MOVEFILE_DELAY_UNTIL_REBOOT) 
  else result := false; 
end; 
 
// Beispielaufruf 
 
procedure TForm1.Button7Click(Sender: TObject); 
begin 
  if not DelBeiNeustart('c:\test.php') 
    then beep; 
end;