Hallo,
schau Dir mal die Funktionen aus der RX-Lib bzw. JvStrUtils an. Sollte genau das sein was Du suchst.
Delphi-Quellcode:
function WordCount(const S: string; const WordDelims: TCharSet): Integer;
{ WordCount given a set of word delimiters, returns number of words in S. }
function ExtractWord(N: Integer; const S: string;
const WordDelims: TCharSet): string;