Сделать гет запрос на winsock

procedure HTTPGet(URL,Query:String);
var
  WSAData1: TWSAData;
  SockAddr1:TSockAddr;
  Socket1: TSocket;
  Buffer1:string;
  i,d:integer;
begin
  if WSAStartup(MAKEWORD(2,2), WSAData1)<>0 then Exit; //Если при вызове, функция выдала значение не равное "0", то выходим из функции.
  Socket1:=Socket(AF_INET,SOCK_STREAM,0); // Создаём Socket
  if Socket1=INVALID_SOCKET then Exit; // Если при создании возникла ошибка, то выходим из функции.
  SockAddr1.sin_family:=AF_INET; // Указываем спецификацию типа "AF_INET" для TCP/IP
  SockAddr1.sin_addr:=pinaddr(gethostbyname(PChar(URL))^.h_addr^)^; // Тута мы вводим ссылку, получаем IP адрес сайта. 
  SockAddr1.sin_port:=htons(80); //Ну порт с которым всегда работаем "80"
  if Connect(Socket1,SockAddr1,SizeOf(SockAddr1))<>0 then  exit; //Если при подключении (не отправке), функция возвращает значение не равное "0", то выходим из функции.
  Buffer1:='GET '+query+' HTTP/1.1'#13#10+
           'Host: '+URL+#13#10+
           'Connection: close'#13#10+
           #13#10;
  // Выше мы составили Header (заголовок запроса)
  send(Socket1,Buffer1[1],Length(Buffer1),0); //Ну и отправляем запрос, без возвращаемого значения
 
end;

HTTPGet('site.ru','/index.php?id=123');

              http.Document.Clear;
http.HTTPMethod('GET','site.ru');
 src:=Tstringlist.Create;
     src.LoadFromStream(http.Document);
                            form1.sRichEdit1.Lines.text:='d = '+src.Text;