procedure StringPickToPieces(Str: AnsiString; Separator: Char; Strings: TStrings);
begin
  try
    Strings.Clear; // Stringliste löschen
    while AnsiPos(Separator, Str) > 0 do // solange es noch einen Separator gibt
    begin
      Strings.Add(Copy(Str, 1, AnsiPos(Separator, Str) - 1)); // Token in der Stringliste sichern
      Str := Copy(Str, AnsiPos(Separator, Str) + 1, Length(Str)); // String um das Token mit Separator kürzen
    end;
    Strings.Add(Str); // und das letzte Token auch mitnehmen
  except
    // hier könnte auch noch was gemacht werden
  end;
end;