Wörter Zählen in String?

[Yakumo500]

Vielen Dank für eure Antworten.
Ich hab nach was gefunden wie es geht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Text:string;
    RegExpr: TRegExpr;
    Counter: integer;
begin
  Text := Memo1.Lines.Text;
  Counter := 0;

  RegExpr := nil;
  try
    RegExpr := TRegExpr.Create;
    if RegExpr <> nil then begin
      RegExpr.Expression := '[^][\s//\\(()),,<<>>&&$$..==""!!°°§§%%´´``~~**''##;;::__||++]+';
      if RegExpr.Exec(Text) then
        repeat
          RegExpr.Match[1];
          Counter := Counter + 1;
        until not RegExpr.ExecNext;
    end;
  except
  end;
  RegExpr.Free;
  ShowMessage(inttostr(Counter));
end;