Ответ от сервера и winsock

procedure HTTPGet(const URL:AnsiString; Query:String);   //HTTPGet('site.ru','/index.php?id=123');
var
  WSAData1: TWSAData;
  SockAddr1:TSockAddr;
  Socket1: TSocket;
  Buffer1:AnsiString;
  i,d:integer;
 
begin
  //Если при вызове, функция выдала значение не равное "0", то выходим из функции.
  if WSAStartup(MAKEWORD(2,2), WSAData1)<>0 then
    Exit;
  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(PAnsiChar(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;

s:=http.get(URL);

var
  rBuff : array [0..5000] of AnsiChar;
begin
  ...
  ...
  ...
  recv(Socket1, rBuff, Length(rBuff), 0);
  Result := rBuff;
end;