1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

procedure ParseString(AnalyzeString, Trennung: String;
  var Daten: TStringList); overload;
var tmpString: String;
begin
  if Daten = nil then
    Daten:=TStringList.Create
  else
  Daten.Clear;
  //Neue Stringliste erzeugen
  while Length(AnalyzeString)>0 do begin
    //Solange noch etwas im String enthalten ist,...
    //Alle schon berücksichtigten Teile werden ja entfernt
    If Pos(Trennung,AnalyzeString)>0 then begin
      tmpString:=Copy(AnalyzeString,1,Pos(Trennung,AnalyzeString)-1);
      Delete(AnalyzeString,1,Pos(Trennung,AnalyzeString));
    end Else begin
      tmpString:=AnalyzeString;
      AnalyzeString:='';
    end;
    Daten.Add(tmpString);
    //Bestandteil hinzufügen
  end;
  //WICHTIG: Stringliste wieder aus dem Speicher entfernen
  //(mit Free), da nur ggf. die Erzeugung hier stattfindet
end;

//Aufruf:

var
  Parts: TStringList;
  i: Integer;
begin
  ParseString(DeinString, '\', Parts);
  for i := 0 to Parts.Count - 1 do
    ShowMessage(Parts[i]);
  Parts.Free;
    //Wichtig: Mit Free freigeben, erzeugt wird die Liste zwar, aber nicht wieder freigegeben...
end;