ausgeben bestimmter informationen aus txt datei

[Scumi]

Okay, hier klappt garnix Wenn ich das Programm starte zeigt es weder im Memo, noch per showmessage irgendetwas.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var List: TStringList;
begin
 List := TStringList.Create;
 List.LoadFromFile('D:\zug.txt');
 List.Add('|| Status: Mission 1 ||');
 List.IndexOf('|| Status: Mission 1 ||');
 ShowMessage ( List[0] );
 Memo1.Text:= List[0];
end;

Ausserdem würde mir das nicht viel weiter helfen, da ich zB nur "Mission 1" ausgeben möchte, wenn vom Programm "Status:" gefunden wurde. Aber er zeigt ja noch nichtmal so etwas.