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='login') then
html_tag.item(i).value:=varToInt(Edit1.text);

if (html_tag.item(i).name='passw') then
html_tag.item(i).value:=StrToInt(Edit2.text) ;

if (html_tag.item(i).value=' Âîéòè ') then
html_tag.item(i).click;