String zerlegen

[Uncle Cracker]

Also, ich habe einen String der Folgendermaßen aussieht: "Text;1;Zahl;2;Wert;3;Zeichen"

Die einzelnen Strings sind also durch ";1;", ";2;", ";3;", usw. geteielt. Nun meine Frage:

Wie bekomme ich es hin, dass ich die einzelnen Strings bekomme, also Text, Zahl, Wert, Zeichen?

Ich habe es so versucht, aber das klappt leider nicht wirklich, nur beim ersten String

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Str1: String;
    MyStr: string='Text;1;Zahl;2;Wert;3;Zeichen';
begin
  Memo1.Clear;
  Str1 := MyStr;
  Delete(Str1, pos(';1;', Str1), length(Str1));
  Memo1.Lines.Add(Str1);
end;

Wenn ich in dieser Funktion jetzt anstatt ";1;" ";2;" einsetze, funktioniert es leider nicht mehr

Vielleicht kann mir jemand helfen und mir verraten was ich für einen Fehler gemacht habe, warum es nicht funktioniert?


Danke UC