But if I make the deliminator more than one character I get an error.
So, just one space as deliminator.
FoundWord := ExtractWordPos(N, SrcStr, [' ', ',', '.', ':', ';'], APos);
but, of course, not something like:FoundWord := ExtractWordPos(N, SrcStr, [':::', '=='], APos);