Nur die erste Zeile aus einer Textdatei löschen

[Luckie]

TStringlist. Oder mit assignfile und readline und writeln einlesen und schreiben und dabei die erste Zeile überspringen.
Mal so aus dem Kopf:

Delphi-Quellcode:

var
  s: String;
  InF, OutF: Textfile;
begin
  Assignfile(InF, InFile);
  reset(InF);
  AssignFile(OutF, OutFile);
  rewrite(OutF, OutFile);
  readline(InF, s);
  while not EOF(InF) do
  begin
    readlne(InF, s);
    writeln(OutF, s);
  end;
  CloseFile(InF);
  CloseFile(OutF);
end;