gerade geschriebenes wort erkennen

[Gentleman]

falls es noch jemanden interessiert, hab ich hier nochmal den code so wie er bei mir einwandfrei funzt...

Code:

procedure TForm1.RichEdit1Change(Sender: TObject);
var
  Line: string;
  i, t, X: integer;
  Delimiters: set of Char;
begin  
  Delimiters := [' ', ';', ',', '.', '-']; //Viel mehr Möglichkeiten..
  Line := Richedit1.Lines[Richedit1.CaretPos.Y];
  for i := Richedit1.CaretPos.X downto 1 do
    if Line[i] in Delimiters then Break;
  if Line<> '' then
    begin
      for t := Richedit1.CaretPos.X to Length(Line) do
        if Line[t] in Delimiters then Break;
    end;
  Word := Copy(Line, i, t-i);
end;