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

die ganze variable:
ganzer_text:='pyr0cracker[b]&[/b]niedersachsen'

die geteilten:
name:='pyr0cracker'
adresse:='niedersachsen'					

1:
2:

name := Copy(ganzer_text, 0, Pos('[', ganzer_text)-1);
adresse := Copy(ganzer_text, Pos('/b]', ganzer_text)+1, Length(ganzer_text);					

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:

function TfrmXYZ.split(input:string; schar:char; s:integer): string;
{ Diese Funktion nimmt einen String INPUT, einen Delimiter SCHAR
  und einen Positionswert S und gibt den Teilstring zurück,
  der vor dem S-ten auftreden von SCHAR steht.
  INPUT:="Hallo -/- Welt" , SCHAR:="/", S:=1  ->  RETURN: "Hallo -"
  INPUT:="Hallo -/- Welt" , SCHAR:="/", S:=2  ->  RETURN: "- Welt"
  INPUT:="Hallo -/- saublöde -/- Welt"  , SCHAR:="/", S:=2  ->  RETURN: "- saublöde -" }
var
   i,n: integer;
   schop: string;
begin
   n := 0;
   for i := 1 to length(input) do
   begin
      if (input[i] = schar) then
      begin
         inc(n);
         if n = s then
         begin
            split := schop;
            exit;
         end
         else
            schop := '';
      end
      else
      begin
           schop := schop + input[i];
      end;
   end;
   split := schop;
end;