1:
2:
3:
4:
5:
6:

repeat
inc(piecenumber);
actline:=memo1.Lines.Strings[linenumber]; //muss vor die schleife
info[piecenumber]:=split(actline,',');
memo5.Lines.Add(info[piecenumber]);
until piecenumber=7 ;                    

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

Function Split (var S : String; Del : String) : String;
Var
  p : Integer;

Begin
  p := pos(Del,S);
  if p=0 then Begin
    Result := s;
    s := '';
    end
  else begin
    Result := Copy(s,1,p-1);
    s:=Copy (s,p+length(Del),length (s));
    End;
End;