Как сделать подцветку ссылок и переход по ним в RichEdit на winapi?

...
uses Shellapi;
...
function GetTextLine(H,id:longint):string;
  var
    Text: array[0..4095] of Char;
begin
  Word((@Text)^) := SizeOf(Text);
  SetString(Result, Text, SendMessage(h, EM_GETLINE, id, Longint(@Text)));
end;
 
Function MainWinProc(HWin: THandle; Msg: Cardinal;
WParam, LParam: Integer): Cardinal; Stdcall;
var
   p: TENLink;
   strURL:string;
   mask:Word;
...
wm_create:begin
     mask := SendMessage(hWin, EM_GETEVENTMASK, 0, 0);
     SendMessage(RichWND, EM_SETEVENTMASK, 0, mask or ENM_LINK or ENM_CHANGE);
     SendMessage(RichWND, EM_AUTOURLDETECT, Integer(True), 0);
end;
WM_NOTIFY:begin
  if (PNMHDR(lParam).code = EN_LINK) then begin
    p := TENLink(Pointer(TWMNotify(Msg).NMHdr)^);
    if (p.Msg = WM_LBUTTONDOWN) then begin
    SendMessageEx(RichWND, EM_EXSETSEL, 0, Longint(@(p.chrg)));
    strURL:=GetTextLine(richWND, SendMessage(richWND,Em_LineFromChar,-1,0) );//не понятно зачем надо
    SendMessage(richWND,EM_GETSELTEXT,0,longint(strURL));
    ShellExecute(hWin, 'open', PChar(strURL), nil, nil, SW_SHOWNORMAL);
    end
  end;
end;
...

uses RichEdit, ShellApi;
 
function Trim(inp_str: String): String;
 var
   i: Integer;
 begin
   for i := 1 to Length(inp_str) do if (inp_str[i] <> ' ') and (inp_str[i] <>Char(9)) then Break;
   if i > 1 then Delete(inp_str, 1, i - 1);
   for i := Length(inp_str) downto 1 do if (inp_str[i] <> ' ') and (inp_str[i] <>Char(9)) then Break;
   if i < Length(inp_str) then Delete(inp_str, i + 1, Length(inp_str));
   result := inp_str;
   if result = ' ' then result := '';
 end;
 
function GetTextLine(H,id:longint):string;
  var
    Text: array[0..4095] of Char;
begin
  Word((@Text)^) := SizeOf(Text);
  SetString(Result, Text, SendMessageEx(h, EM_GETLINE, id, Longint(@Text)));
end;
 
Function MainWinProc(HWin: THandle; Msg: Cardinal;
WParam, LParam: Integer): Cardinal; Stdcall;
var mask:Word;
     p: TENLink;
     strURL:string;
...
WM_CREATE:begin
mask := SendMessage(hWin, EM_GETEVENTMASK, 0, 0);
SendMessage(RichWND, EM_SETEVENTMASK, 0, mask or ENM_LINK or ENM_CHANGE);
SendMessage(RichWND, EM_AUTOURLDETECT, Integer(True), 0);
end;
WM_NOTIFY:begin
  if (PNMHDR(lParam).code = EN_LINK) then begin
    p:=TENLink(Pointer(PNMHDR(Lparam))^);
    if (p.Msg = WM_LBUTTONDOWN) then begin
      SendMessage(RichWND, EM_EXSETSEL, 0, Longint(@(p.chrg)));
      strURL:=GetTextLine(RichWnd,SendMessage(richWnd,Em_LineFromChar,-1,0));
      strURL:=Copy(strURL, p.chrg.cpMin-SendMessage(richWnd,EM_LINEINDEX,-1,0),p.chrg.cpMax-p.chrg.cpMin+1);
      ShellExecute(hWin, 'open', PChar(trim(strURL)), nil, nil, SW_SHOWNORMAL);
      SetFocus(RichWnd);
    end
  end;
end;