Работа с TCppWebBrowser

mouse_event(MOUSEEVENTF_LEFTDOWN, X,Y,0,0);
mouse_event(MOUSEEVENTF_LEFTUP, X,Y,0,0);

ClientToScreen

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TPoint* point = new TPoint(50,50);
    CppWebBrowser1->ClientToScreen(*point);
    delete point;
}

 TPoint cli=Point(50,50);
 cli=CppWebBrowser1->ClientToScreen(cli);

void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg, bool &Handled)
{
  TPoint WbLeftTop(CppWebBrowser1->BoundsRect.left,
                   CppWebBrowser1->BoundsRect.top);
  TPoint WbRightBotton(CppWebBrowser1->BoundsRect.right,
                       CppWebBrowser1->BoundsRect.bottom);
  TPoint WbScreenLeftTop = ClientToScreen(WbLeftTop);
  TPoint WbScreenRightBotton = ClientToScreen(WbRightBotton);
//далее проверяем, произошло ли нажатие мыши в пределах TCppWebBrowser
  if (Msg.pt.x >= WbScreenLeftTop.x&&
      Msg.pt.y >= WbScreenLeftTop.y&&
      Msg.pt.x <= WbScreenRightBotton.x&&
      Msg.pt.y <= WbScreenRightBotton.y) {
    if (Msg.message==WM_LBUTTONDOWN) {
      ShowMessage("Я - левая кнопуля. Меня поторогали.");
    }
  }
}