[Delphi] 如何做一个可以帮我向网页自动填写用户名密码的软件啊？？

{    
   This  example  shows  how  to  automatically  fill  in  a  search  string    
   in  the  "Search  Tip"  page  and  click  the  search  button.    
}    
 
uses    
   MSHTML_TLB;    
 
//  first  navigate  to  tipspage    
 
procedure  TForm1.Button1Click(Sender:  TObject);    
begin    
   Webbrowser1.Navigate('http://www.swissdelphicenter.ch/en/tipsuchen.php');    
end;    
 
//  Try  to  access  IE  instance  and  fill  out  the  search  field  with    
//  a  text  and  click  the  search  button    
 
procedure  TForm1.Button3Click(Sender:  TObject);    
var    
   hIE:  HWND;    
   ShellWindow:  IShellWindows;    
   WB:  IWebbrowser2;    
   spDisp:  IDispatch;    
   IDoc1:  IHTMLDocument2;    
   Document:  Variant;    
   k,  m:  Integer;    
   ovElements:  OleVa