Bestimmte Daten aus txt lesen die durch ; getrennt sind

[bronstein]

Das steht in der Datei die umgeformt werden soll

Code:

[b]Nachname;Vorname;PLZ;Ort;Tel; 
Mueller;Klaus;12454;Salzburg;02349/1234; 
Maier;Peter;12344;München;23489/1233; 
Mayer;Erwin;12312;Stuttgart;12334/1234; [/b]

Habe schon folgenden Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var str: string;
begin
   while pos(';',strl.text) > 0 do
     begin
     listbox1.Items.Add(copy(strl.text, 1, pos(';',strl.text)-1));
     str :=strl.text;
     delete(str,1,pos(';',str));
     strl.text := str
   end;
end;

Möchte jetzt aber nur bestimmte Daten in Variablen schreiben (Nachname,Vorname,Tel).
Mit dem oben genannten Code wird nur die kompletten Daten in einer Listbox untereinander geschrieben, wie kann ich jetzt die Daten (Nachname, Vorname, Tel) in eine neue Textdatei schrieben.

[edit=sakura] [delphi]Tags gesetzt. Mfg, sakura[/edit]