Text in Richedit anklicken

[Blackheart]

Hier ein Beispiel wie du wörter unter dem Cursor erkennen kannst, vieleicht hilft dir das ja schon etwas weiter.

Delphi-Quellcode:

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var pt:tpoint;
    i,iAnfang,iEnde:integer;
    s:string;
begin
  pt:= point(x,y);
  //wo steht der Cursor im memo?
  i := RichEdit1.Selstart;
  //anfang und ende suchen
  iAnfang := i;
  iEnde   := i;
  while (iAnfang>0) and (not (RichEdit1.Text[iAnfang] in [' ','.',',',';',#13,#10]) ) do dec(ianfang);
  while (iEnde<length(RichEdit1.Text)) and (not (RichEdit1.Text[iEnde] in [' ','.',',',';',#13,#10]) ) do inc(iEnde);
  s:=copy(RichEdit1.Text,iAnfang+1,iEnde-iAnfang-1);
  Label.Caption := s;
end;