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

sp;    (CompareText(ovElements.item(i).type,  'text')  =  0)  then    
                               begin    
                                   ovElements.item(i).Value  :=  'FindWindow';    
                               end;    
                           except    
                           end;    
                           //  when  Submit  button  is  found,  try  to  click    
                           try    
                               if  (CompareText(ovElements.item(i).tagName,  'INPUT')  =  0)  and    
                                   (CompareText(ovElements.item(i).type,  'SUBMIT')  =  0)  and    
                                   (ovElements.item(i).Value  =  'Search')  then    //  Suchen  für  German    
                               begin    
                                   ovElements.item(i).Click;    
                               end;    
                           except    
                           end;    
                       end;    
                   end;    
               end;    
           end;    
       end;    
   end;    
end;