Inhalt der textdatei löschen

[meik]

hallo,

ich wollte aus einer Textdatei den ersten Zeil löschen, das problem das ich die ganze textdatei lösche

der code sieht so aus:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);  
var  
  S1: Integer;  
begin  
  S1 := 0;  
  try  
    memo1.Lines.LoadFromFile('command.txt');  
    S1 := StrToInt(memo1.Lines[0]);  
    deletefile('command.txt');  
  except  
  end;  
  case S1 of  
    1: button1click(self);  
    2: button2click(self);  
  end;

Frage: wie kann ich den Inhalt der Textdatei löschen ohne den ganzen FILE, bitte korrigiere mir den Code.


[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst einfügen. MfG, Matze[/edit]