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('
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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;