RxRichEdit

[makszxcvbnm]

Помогите плиз!!!
как в обработчике событий on url click в rxrichedit прописать чтобы по нажатию ссылки открывался сайт?
ссылка отображается в rxichedit
Вот привожу исходник...

[Скандербег]

uses ShellApi;

procedure TForm1.RxRichEdit1URLClick(Sender: TObject;
                  const URLText: String; Button: TMouseButton);
begin
  ShellExecute(Handle, 'open', PChar(URLText), 0, 0, SW_SHOWNORMAL);
end;