ausgeben bestimmter informationen aus txt datei

[Scumi]

Okay, ich bin langsam ein wenig in Delphi drin. Folgendermaßen sieht das grad bei mir aus (erstmal nur für den ersten gesuchten Wert)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var datei: textfile;
    puffer: string;
    anfang: integer;
    ende: integer;

begin
 assignfile(datei,'D:/zug.txt');
 reset(datei);
 readln(datei, puffer);
 anfang:= pos('Status:', Puffer);
 ende := pos('||', Puffer) + 8;
 Memo1.Lines.Add(copy(Puffer, anfang, ende - anfang + 1));
 delete(Puffer, 1, ende);
 closefile(datei);

end;

Statt das Delphi mir "Mission 1" anzeigt, wie gewollt kommen lediglich die ersten 9 Zeichen aus der ersten Zeile in das Memofeld (-[o]- ---). Bekommte das trotz unzähliger Versuche nicht weg.

Gruß