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

procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings);
begin
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure Split(Delimiter: char; const s: string; Strings: TStringList);
var
  i: integer;
  Teil: string;
begin
  Strings.Clear;
  Teil := '';
  for i := 1 to Length(s) do
  begin
    if s[i] = Delimiter then
    begin
      Strings.Add(Teil);   // Teil ausgeben
      Teil := Delimiter;   // Teil auf Delimiter setzen.
    end
    else
    begin
      Teil := Teil + s[i]; // Teil erweitern
    end;
  end;
  Strings.Add(Teil);       // Rest ausgeben
end;                    

1:
2:
3:

  SL := TStringList.Create;  // STringliste erzeugen  
  Split('/',Edit1.Text,SL);  // in Edit1 ist der zusammengesetzte Text. In SL werden die Strings abgelegt.
  Listbox1.Items := SL;   // in Listbox1 erscheint die getrennte Liste