Послать дополнительный клик мышкой

void __fastcall TfMain::reTextContextPopup(TObject *Sender, TPoint &MousePos, bool &Handled)
 
{
  tagINPUT *i = new tagINPUT;
//вариант 1
    i->type = 0;
    i->mi.dx = 0;
    i->mi.dy = 0;
    i->mi.mouseData = 0;
    i->mi.dwFlags = MOUSEEVENTF_LEFTDOWN;
    i->mi.time = 0;
    i->mi.dwExtraInfo = 0;
    SendInput(1,i,sizeof(tagINPUT));
    i->mi.dwFlags = MOUSEEVENTF_LEFTUP;
    SendInput(1,i,sizeof(tagINPUT));
// вариант 2
//    SendMessage(((TWinControl*)reText)->Handle, WM_LBUTTONDOWN, 0, 0);
//    SendMessage(((TWinControl*)reText)->Handle, WM_LBUTTONUP, 0, 0);
// вариант 3
//    SendMessage(((TWinControl*)reText)->Handle, WM_LBUTTONDOWN, MK_LBUTTON, 0);
//    SendMessage(((TWinControl*)reText)->Handle, WM_LBUTTONUP, 0, 0);
    Application->ProcessMessages();
}