1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button4Click(Sender: TObject);
   var Zeile:String;
   var i:Integer;
begin
 s:=TStringList.Create;
  s.LoadFromFile('C:\daten.txt');
  For i:=0 to s.Count -1
  do begin
   Zeile:=s.Strings[i];
  s.Delimiter:=',';

   s.DelimitedText:=Zeile;
    showmessage(s[0]);
   end;
    s.Free;
end;					

1:
2:

Hans,Mustermann,bla,bla,bla
Peter,Müller,bla,bla,bla					

1:
2:
3:
4:
5:

Hans
Mustermann
bla
bla
bla