}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(SendMessage(
RichEdit1->Handle, // handle to destination window
EM_AUTOURLDETECT, // message to send
TRUE, // not used; must be zero
0 // not used; must be zero
)==0)Caption="ok1";
SendMessage(RichEdit1->Handle,EM_SETEVENTMASK ,0,
ENM_LINK|SendMessage(RichEdit1->Handle,EM_GETEVENTMASK,0,0));