delphi borrar fichero

procedure TForm1.Button1Click(Sender: TObject);
begin

  if FileExists('c:\borrar.txt') then
    DeleteFile('c:\borrar.txt');

end;