"RichEdit" Cursorposition in einem Wort

[EarlyBird]

Danke,
das bringt mich auf den richtigen Weg.
Ich versuche es erstmal so.

Delphi-Quellcode:

Function CursorPosInWord(str : String; CursorPos : Integer) : Integer;
 var
 I : Integer;
 begin
   Result := -1;  
     for I := CursorPos Downto 0 do
       begin
         if Word(str[I]) in [13, 32, 9, 188] then
           begin
             Result := CursorPos - I;
             break;
           end;
       end;
 end;

Sonderzeichen usw habe ich so auch noch nicht berücksichtigt
Wie würdet Ihr den Wortanfang suchen?