如何在可执行程序里调用web上的搜索引擎并把结果返回？？

[acai]

在exe里有一个文本框，然后点击“搜索”按钮，自动根据文本框里的内容调用google等此类的搜索引擎，然后把搜索结果的那个页显示出来，该如何做呢？？

[heartache]

procedure TForm2.TeButton3Click(Sender: TObject);
var url,text:string;
begin
text:=teedit1.Text;
url:='http://www.google.com/search?q='+text;
with Tform4.Create(nil) do
begin
caption:=self.TeButton3.Caption;
webbrowser1.Navigate(url);
show;
end;
end;

procedure TForm2.TeButton4Click(Sender: TObject);
var url:string;
begin
url:='http://search.sina.com.cn/cgi-bin/search/search.cgi?_searchkey='+self.TeEdit1.Text+'&_andor=and&_ss=sina&_search=+%CB%D1+%CB%F7+';
with Tform4.Create(nil) do
begin
caption:=self.TeButton4.Caption;
webbrowser1.Navigate(url);
show;
end;
end;

procedure TForm2.TeButton5Click(Sender: TObject);
var url:string;
begin
url:='http://page.search.sohu.com/cgi-bin/pagesearch.cgi?tn=sohu&si=gi&word='+self.TeEdit1.Text+'&ct=0&cl=2&lm=0';
with Tform4.Create(nil) do
begin
caption:=self.TeButton5.Caption;
webbrowser1.Navigate(url);
show;
end;
end;

procedure TForm2.TeButton6Click(Sender: TObject);
var url:string;
text:string;
begin
text:=self.TeEdit1.Text;
url:='http://seek.3721.com/right.htm?argse=new3721&name='+self.TeEdit1.Text;
with tform4.Create(nil) do
begin
caption:=self.TeButton6.Caption;
webbrowser1.Navigate(url);
show;
end;
end;