кликнуть в веббраузере, как?

[Зод]

Мне нужно реализовать клик в веббраузере. Делаю эмуляцию клика. Как я понимаю вот так:

 Documents := WebBrowser1.ControlInterface.Document as IHtmlDocument2;
 if (Documents <>  nil) then
 begin
    El:=WebBrowser1.OleObject.Document.all.tags('A');
    if El.length > 0 then
          El.item(34).click;

На ссылке установлен яваскрипт(сложение/вычитание и т.д., числовое значение какое-то) Просматривая через сниффер смотрю что не правильно выполняется скрипт. Это может быть из-за только нажатии по ссылке но не отпускании клавиши мыши?
Если да то как реализовать не только нажатие клавиши мыши но и ее отпуск(onmouseover)