Как программно вызвать щелчок мышью в TWebBrowser

[Megabotans]

Пытаюсь функцией sendmessage (mouse_event мне не подходит) вызвать клик мышью в WebBrowser на форме.
Вот такой код:

procedure TForm1.Button4Click(Sender: TObject);
var Pt: TPoint;
begin
  Pt.x := WebBrowser1.Left + (WebBrowser1.Width div 2)-300;
  Pt.y := WebBrowser1.Top + (WebBrowser1.Height div 2);
  Pt := ClientToScreen(Pt);
  
  Pt.x := Round(Pt.x * (65535 / Screen.Width));
  Pt.y := Round(Pt.y * (65535 / Screen.Height));
  
 //Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
  
  SendMessage(Form1.WebBrowser1.Handle, WM_LBUTTONDOWN, 0, MakeLParam(Pt.x,Pt.y));
  SendMessage(Form1.WebBrowser1.Handle, WM_LBUTTONUP, 0, MakeLParam(Pt.x,Pt.y));
   //PostMessage(WebBrowser1.Handle,WM_LBUTTONDOWN, MK_LBUTTON, makelong(Pt.x,Pt.Y));
   //PostMessage(WebBrowser1.Handle,WM_LBUTTONUP, 0, makelong(Pt.x,Pt.Y));
end;

Если вместо Form1.WebBrowser1.Handle поставить Form1.Button3.Handle, то кнопка Button3 будет нормально нажиматься, а WebBrowser никак не реагирует (закомментированный вариант тоже не подходит).
Координаты я пробовал нулевые задавать - ничего не меняется.
Может в Interner Explorer защита от подобных действий стоит? Я уже сталкивался с тем, что в этом компоненте запрещён доступ к телу фрейма, если домен фрейма не совпадает с доменом родительского документа.
Может кто меня научит как с такими нюансами справляться?

Ребят, подскажите, плиз. Очень нужно.
Наверняка ведь можно с помощью Win API симулировать клик мышкой, не двигая при этом настоящий курсор.
Это мне нужно для того, чтобы для дистанционной системы обучения брать научный контент у сторонних сайтов, для генерации которого используются события JavaScript (OnMouseOver, OnMouseClick).
Вызвать JavaScript-функции событий непосредственно можно, но будет гораздо сложнее.

[Квэнди]

А тебя интересует клик на конкретном месте webbrowser-а ? или просто на комопненте ?

[Megabotan]

Именно на конкретном месте. Как симулировать клик на конкретном объекте через интерфейс IHTMLdocument2 мне известно, но дело в том, что нужные мне ссылки находятся в iframe, домен которого не совпадает с доменом родительского документа, посему доступ к телу iframe закрыт. Вот и приходится искать способ симуляции действий мыши.

[stlcrash]

var
BrowserH:HWND;
begin
BrowserH:=Webbrowser1.handle;
PostMessage(BrowserH,WM_LBUTTONDOWN,0,XY);
PostMessage( BrowserH,WM_SETCURSOR,BrowserH,MakeLong(HTCLIENT,WM_LBUTTONDOWN));
PostMessage(BrowserH,WM_LBUTTONUP,0,XY);
PostMessage( BrowserH,WM_SETCURSOR,BrowserH,MakeLong(HTCLIENT,WM_LBUTTONUP));
end;

PS браузер может содержать внутри себя другие объекты, например SWF файлы имеют свой хендл, его вытащить тоже несложно...

Pt.x := Round(Pt.x * (65535 / Screen.Width));
Pt.y := Round(Pt.y * (65535 / Screen.Height));

Если в хендл тычишь, закоменти эти строки...