ÔõôÓÃdelphiÏòÍøÒ³Ìá½»µÇ½ÐÅÏ¢

procedure TForm1.Button2Click(Sender: TObject);
var  
o : Olevariant;
begin  
  webbrowser1.Navigate('http://www.163.com');  
  delay(2000);
  o :=   WebBrowser1.OleObject.document.all.item('username',0);
  o.value := 'username';  
  o := WebBrowser1.oleobject.document.all.item('Password',0);  
  o.value := 'password';  
  o :=WebBrowser1.oleobject.document.all.item('login',0);  
  o.Click;
end;