Desenvolvimento de um Google!!

procedure TFprincipal.CsConnect(Sender: TObject; Socket: TCustomWinSocket);
var
  xmldata:string;
  comando:string;
  site:string;
  host:string;
begin
  host := ´www.google.com´;
  site := ´/custom?q=´;
  xmldata := stringReplace(Mtest.Text,´#´,Edpor.Text,[rfReplaceAll]);
  With Cs.Socket do
  begin
      SendText(´GET ´ + site + ´HTTP/1.0´ + 13);
      SendText(´User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1´ + 13);
      SendText(´Host: www.google.com´ + 13);
      SendText(´Accept: */*´ + 13);
      SendText(´Connection: Close´ + 13);
  end;
end;