Zeilen aus datei löschen

[Luckie]

Habe ich mich denn so unverständlich ausgedrückt? Etwas Pseudocode, da ich kein Delphi hier habe:

Delphi-Quellcode:

var
  F_Old, F_New: TextFile;
  FilenameOld, FilenameNew: String;
  s: String;
begin
  if FileExists(FilenameOld) then
  begin
    AssignFile(F_Old, FilenameOld);
    Reset(F_Old);
    AssignFile(F_New, FilenameNew);
    Rewrite(F_New)
    while not EOF(F_Old) do
    begin
      readln(F, s);
      if s <> '' then
        writeln(F_NEW, s); 
    end;
    CloseFile(F_Old);
    CloseFile(F_New);
  end;