Inhalt einer Textdatei (.txt) löschen

[yasR]

Hey,

mein Programm soll bei 100 Zeilen den Inhalt einer Datei löschen.
Mir fällt aber nicht ein, wie man das machen könnte. Das hier habe ich schon :

Delphi-Quellcode:

var StrCounter := TStrings; 



 StrCounter := Tstringlist.create;
 StrCounter.loadfromfile('pardaka.txt');

  if StrCounter.Counter  >= 100 then begin

// Inhalt der Textdatei löschen

end;