String teilen :)

[BongoTrommler]

Huu hab mal wieder eine Frage....

Also ich hab ein String, der sieht ungefähr so aus 127:53111:2


Jetzt will ich, dass der String gesplittet wird... alles vor dem ersten : wird der variablen Test1 zugewisen
...der mittlere Teil, also zwischen den : wird var2 zugewiesen ... und der letze teil soll an var3 gehen... hat jmd nen Plan wie ichs machen könnte?

Hab bisher so probiert:

Delphi-Quellcode:

 var   Text, Part1, Part2,part2: string;
    position : Byte;
    trenner : char;
begin
  Text := memo1.lines[0];
  trenner := ':';
  position := pos(trenner,text);
  if position > 1 then
    begin
       Part1 := copy(text,1,position - 1);
       Part2 := copy(text,2,Position + 1);
      part2 := copy(text,3,Position + 2);
      showmessage( Part1);
      showmessage( Part2);
      showmessage(part2);
    end;

end;

... Bis zum ersten Zeichen geht auch alles...nur danach hörts auf... bin dankbar über jede antwort