procedure TForm1.Button3Click(Sender: TObject);
var
a:integer;
b:string;
c:variant;
begin
c:=WebBrowser1.OleObject.Document.forms.item(0).elements;
for a:=0 to (c.lenght-1) do
begin
if (c.item(a).name='email') then c.item(a).value:='e-mail';
if (c.item(a).name='password') then c.item(a).value:='password';
if (c.item(a).value='Âõîä') then c.item(a).click ;
end;
end;