webbrowser клик

[rafffkaaa]

Пытаюсь кликнуть по кнопке.
Код хтмл:

PHP код:

<div class="clb"></div></div><div><div class="uform"><div class="tac">Пользователь должен будет подтвердить, что вы друзья.</div><form action="/dk?bk=FriendAddFriend&amp;st.cmd=friendAddFriend&amp;st.friendId=aomlbsdidxukmwqoz0qecurxyzgbqeumewc&amp;tkn=7246" method="post" onsubmit="var now=new Date().getTime()/1000; if(now-__pstd<6) return false; __pstd=now;"><input value="set" type="hidden" name="fr.posted" /><div class="fbtns tac"><input value="Пригласить" type="submit" name="button_addFriend" /><span class="act"><a class="ai alnk" href="friendMain#js-bck"><span class="lnk">Отменить</span></a></span></div></form></div></div></div></div></div><div id="footer"><div class="tdiv"></div> 


Код delphi:

PHP код:

...
var
pp: variant;
i: integer;
begin
...
pp:=WebBrowser1.OleObject.document.forms.item(0).elements; // на эту строчку матерится!
      for nn:=0 to (pp.Length - 1) do
        if (pp.item(nn).tagName = 'input') and
          (pp.item(nn).type = 'submit') and
          (pp.item(nn).Value = 'Пригласить') then
            pp.item(nn).click; 


Спасибо.

[rafffkaaa]

Ошибка access violatin ((((((((((((

[volvo877]

Ты уверен, что это - первая (т.е, нулевая) форма на странице? Тогда просто:

uses MsHtml;

procedure TForm1.Button1Click(Sender: TObject);
var
   frm : IHTMLFormElement;
begin
   frm := (WebBrowser1.Document as IHTMLDocument2).forms.
           item(varEmpty, OleVariant(0)) as IHTMLFormElement;
   frm.submit;
end;

нет никакого AV, попробовал только что...