1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure GetWords(TheString, Separator: String; var Strings: TStringList);
begin
  try
    Strings.Clear;
    while Pos(Separator, TheString)>0 do
    begin
      Strings.Add(Copy(TheString, 1, Pos(Separator, TheString)-1));
      TheString:=Copy(TheString, Pos(Separator, TheString)+Length(Separator),
      Length(TheString));
    end;
    Strings.Add(TheString);
  except
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

function WordCount(TheString, Separator: String): Integer;
var OurStrings: TStringList;
begin
  OurStrings:=TStringList.Create;
  GetWords(TheString, Separator, OurStrings);
  result:=OurStrings.count;
  OurStrings.free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function GetWord(TheString, Separator: String; Nummer: Integer): String;
var OurStrings: TStringList;
begin
  OurStrings:=TStringList.Create;
  GetWords(TheString, Separator, OurStrings);
  try
    result:=OurStrings[Nummer-1];
  except
    result:=''
  end;
  OurStrings.free;
end;					

1:

uses Types;					

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

function Explode(const AText: String; ADelimiter: Char): TStringDynArray;
var
  I: Integer;
begin

  with TStringList.Create do
    try
      Delimiter := ADelimiter;
      DelimitedText := AText;
      if Count > 0 then
      begin
        SetLength(Result, Count);
        for I := 0 to Count - 1 do
          Result[I] := Strings[I];
      end;
    finally
      Free;
    end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
var
  StrArry: TStringDynArray;
  I: Integer;
begin

   StrArry := Explode('Ich finde das delphi-forum super!!', #32);
   if Length(StrArry) > 0 then
     for I := 0 to High(StrArry) do
       ShowMessage(StrArry[I]);

end;