//---------------------- В MainForm пишем: ---------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner)
{
unsigned mask = SendMessage(RichEdit1->Handle, EM_GETEVENTMASK, 0, 0);
SendMessage(RichEdit1->Handle, EM_SETEVENTMASK, 0, mask | ENM_LINK);
SendMessage(RichEdit1->Handle, EM_AUTOURLDETECT, true, 0);
RichEdit1->Text

//---------------------------------------------------------------------------
 
//----- GDI+ ----------
#define STRICT
#pragma option -w-hid
#include <windows.h>
#include <GdiPlus.h>
#pragma comment(lib, "GdiPlus.lib") // для статик линковки
#pragma option -whid
//---------------------
#include