"Гиперссылка" в RichEdit

// При нажатии клавиши мыши на слово в RichEdit
void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  long i,start,end;
  TPoint Tp;
  Tp.x = X; Tp.y = Y;
  i = SendMessage(RichEdit1->Handle,EM_CHARFROMPOS,0,(long)&Tp);
  start = SendMessage(RichEdit1->Handle,EM_FINDWORDBREAK,WB_LEFT,i);
  end = SendMessage(RichEdit1->Handle,EM_FINDWORDBREAK,WB_RIGHT,i);
  RichEdit1->SelStart = start;
  RichEdit1->SelLength = end-start;
  RichEdit1->SelAttributes->Color = clRed;
  RichEdit1->SelLength = 0;
 
}
//------------------------------------------------------------------
// При перемещении курсора мыши над словами в RichEdit
void __fastcall TForm1::RichEdit1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  long i,start,end;
  TPoint Tp;
  Tp.x = X; Tp.y = Y;
  i = SendMessage(RichEdit1->Handle,EM_CHARFROMPOS,0,(long)&Tp);
  start = SendMessage(RichEdit1->Handle,EM_FINDWORDBREAK,WB_LEFT,i);
  end = SendMessage(RichEdit1->Handle,EM_FINDWORDBREAK,WB_RIGHT,i);
  RichEdit1->SelStart = start;
  RichEdit1->SelLength = end-start;
  RichEdit1->SelAttributes->Color = clRed;
  RichEdit1->SelLength = 0;
}