Kod
uses MSHTML; function SayfadakiFormuAl(const ********:IHTML********2;const FormNumarasi:Integer):IHTMLFormElement; var Forms: IHTMLElementCollection; begin Forms := ********.Forms as IHTMLElementCollection; if FormNumarasi < Forms.Length then Result := Forms.Item(FormNumarasi,'') as IHTMLFormElement else result := nil; end; procedure TForm1.Button2Click(Sender: TObject); var WebForm:IHTMLFormElement; GoogleEdit:IHTMLInputElement; begin WebBrowser1.Navigate('http://www.google.com.tr/'); while WebBrowser1.ReadyState < READYSTATE_COMPLETE do Application.ProcessMessages; WebForm:=SayfadakiFormuAl(IHTML********2(WebBrowser1.********),0);//sayfanın form nesnesi elde edilir GoogleEdit:=WebForm.item('q',0) as IHTMLInputElement;{sayfadaki arama kutusunun ismi (name) 'q', bu isme göre nesne bulunur.} GoogleEdit.value:='deneme'; //o nesneye aranan değer atanır. WebForm.submit;//web formu çalıştırılarak arama sağlanır. end;