Zeile aus Datei in Textdatei schreiben

[Xenonz]

Soo!
Ich habe gerade bemerkt, dass Reset nicht zum schreiben öffnet!
So sieht nun das ganze fertig aus:

Delphi-Quellcode:

var
  F, D : TextFile;
  S: string;
begin
    AssignFile(F, 'test.txt');
    Reset(F);
    repeat
      Readln(F, S);
    until (pos('haha',S) > 0);
    CloseFile(F);

    AssignFile(D, 'neu.txt');
    append(D);
    writeln(D, S);
    CloseFile(D);
end;

Danke für die Hilfe!