Правильно ли оформлен GET-запрос на WinSock?

[Arsenx777]

Я недавно начал изучатьс сокеты, вот хочу формировать GET запрос, все работает, только очень медленно, html код выводится в memo в течении 2-3 мин, это долго. Я бы смог через indy за пару секунд вывести.
Не может быть что бы сокеты так долго работали, тут навеняка есть кокая то хитрость. Как это исправить?

procedure TForm1.Button1Click(Sender: TObject);
var sock: WSAData;
    socket1: TSocket;
    addr: TSockAddr;
    buff1: string;
    buff2: array[1..1024] of char;
    i,d: integer;
begin
if WSAStartup(MAKEWORD(2,2),sock)<>0 then
begin
  ShowMessage('Error inicialization');
  Exit;
end;
  socket1:=Socket(AF_INET,SOCK_STREAM,0);
if socket1 = INVALID_SOCKET then
begin
  ShowMessage('Error');
  Exit;
end;
  addr.sa_family:=AF_INET;
  addr.sin_addr.S_addr:=inet_addr(PChar('IP-ñåðâåðà'));
  addr.sin_port:=htons(80);
if connect(socket1,addr,SizeOf(addr))<>0 then
begin
  ShowMessage('Error connect');
  Exit;
end;
  Buff1:='GET / HTTP/1.1'#13#10+
          'host: parsers.info'#13#10+
          'Connection: close'#13#10+#13#10;
if send(socket1,buff1[1],length(buff1),0)=SOCKET_ERROR then
begin
  ShowMessage('Error sender');
  Exit;
end;
repeat
  FillChar(buff2,SizeOf(buff2),0);
  d:=Recv(socket1,buff2,SizeOf(buff2),0);
for i:=1 to d do
begin
  memo1.Text:=memo1.Text+Utf8ToAnsi(buff2[i]);
end;
until d<=0;
if CloseSocket(Socket1)<>0 then
  ShowMessage('Error closing');

end;