там через id http а я так
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
s:string;
html_tag: variant;
begin
html_tag:=WebBrowser1.OleObject.Document.forms.ite m(0).elements;
for i:=0 to (html_tag.length-1) do
begin
if (html_tag.item(i).name='email') then
html_tag.item(i).value:=edit1.text;

if (html_tag.item(i).name='pass') then
html_tag.item(i).value:=edit2.text ;

if (html_tag.item(i).value='quick_login()') then
html_tag.item(i).click;
подругому не умею(