Inhalt einer txt Datei mit TStringList richtig auslesen?

[AlexII]

Hab das jetzt so gemacht, aber irgendwie funktionieren das nicht.
Die Fehlermeldung lautet: ')' erwartet, aber ';' gefunden. Was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i, Pos1, Pos2, Pos3, Pos4, Pos5: Integer;
    s, s2: String;
begin
  List:=TStringList.Create;
  try
    List.LoadFromFile('C:\Datei.txt');
    for i := 0 to List.Count-1 do
    {s:=List[i];
    Pos1:=Pos('=', s);
    Pos2:=PosEx('=', s, Pos1+1);
    Pos3:=PosEx('=', s, Pos2+1);
    Pos4:=PosEx('=', s, Pos3+1);
    Pos5:=PosEx('=', s, Pos4+1);
    s2:=Copy(s, Pos1+1, Pos2-Pos1-1);}

    ListBox1.Items.Insert(i, Copy(List[i], Pos('=', List[i])+1, PosEx('=', List[i], Pos('=', List[i])+1) - Pos('=', List[i])-1);
  finally
    List.Free;
  end;
end;

Die txt sieht so aus:

Zitat:

=Hans=Mustermann=27=Hesse=
=Jasmin=Musterfrau=26=NRW=