Inhalt einer txt Datei mit TStringList richtig auslesen?

[AlexII]

Hallo,

hab eine .txt-Datei mit folgendem Inhalt:

Zitat:

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

Dieses will ich mittels TStringList auslesen, die Vornamen in einer ListBox anzeigen, den Nachnamen, das Alter und Bundesland in Labels.

Hab das so probiert, hier wird aber das Alter und das Bundesland nicht ausgegeben.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  List:=TStringList.Create;
  try
    List.LoadFromFile('C:\Datei.txt');
    for i := 0 to List.Count-1 do
    ListBox1.Items.Add(List.Names[i]);
    ListBox1.ItemIndex:=0;
    Label1.Caption:=List.Values[ListBox1.Items[ListBox1.ItemIndex]];
    Label2.Caption:=?????
    Label3.Caption:=?????
  finally
    List.Free;
  end;
end;

Wer sagt mir wie ich das anders und vor allem richtig mache?