"RichEdit" Cursorposition in einem Wort

[Lannes]

Delphi-Quellcode:

function CursorPosInWord(str : String; CursorPos : Integer) : Integer;
begin
  Result := CursorPos;  
  while (Result > 1) and (not (str[Result] in [#13,#10,#09,' '])) do
    dec(Result);
end;