Programm das in eine Datei schreibt...

[DeddyH]

Und zum Löschen des Inhalts (nicht der Datei selbst):

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  aFile: Textfile;
begin
  AssignFile(aFile, 'C:\test\test.txt');
  Rewrite(aFile);
  CloseFile(aFile);
end;