function LookupName(str: string): TInAddr;
var 
  _hostEnt:PHostEnt; 
  _inAddr:TInAddr;
begin
  if (str[1] in ['a'..'z']) or
      (str[2] in ['a'..'z']) then
  begin
    _hostEnt := getHostByName(pchar(str));
    FillChar(_inAddr, sizeOf(_inAddr), 0);
    if _hostEnt<>nil then 
    begin
      with _hostEnt^, _inAddr do
      begin 
        s_un_b.s_b1 := h_addr^[0]; 
        s_un_b.s_b2 := h_addr^[1];
        s_un_b.s_b3 := h_addr^[2]; 
        s_un_b.s_b4 := h_addr^[3]; 
      end;
    end; 
  end
  else
    _inAddr.s_addr := inet_addr(pchar(str));
  Result:= _inAddr;
end;

function SendRequest(URL,PACKET:string):string;
var
 buf      : array[1..1500] of char;
 wData    : WSADATA;
 addr     : sockaddr_in;
 sock     : integer;
 error    : integer;
 phe      : PHostEnt;
 len,i,d  : Integer;
begin
 Result := '';
 WSAStartup($0101, wData);
 phe := gethostbyname(PChar(url));
 sock := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
 addr.sin_family := AF_INET;
 addr.sin_port   := htons(80);
 addr.sin_addr := LookupName(URL);
 error := connect(sock, addr, sizeof(addr));

 len := 0;

 send(sock, PACKET[1], Length(PACKET),0);
repeat
    FillChar(buf,SizeOf(buf),0);
    d:=recv(sock,buf,SizeOf(buf),0);
    len:=len+d;
    for i:=1 to d do result := result + buf[i];
until d<=0;

 closesocket(Sock);
 WSACleanup;
end;

function Get(const AURL: string): string;
var
  req  : string;
  tmp, tmp2  : string;
begin
  tmp := AURL;
  if pos('http://', tmp) = 1 then
    Delete(tmp, 1, 7);

  if pos('/', tmp) <> 0 then tmp2 := copy(tmp, pos('/', tmp), 255)
  else tmp2 := '/';

  req:='GET ' + tmp2 + ' HTTP/1.0' + #13#10 +
       'Host: ' + tmp + #13#10+
       'User-Agent: Opera/9.24 (Windows NT 5.1; U; en)' + #13#10 +
       'Connection: close' + #13#10#13#10;

  result := SendRequest(tmp, req);
end;

repeat
    FillChar(buf,SizeOf(buf),0); // зачем очищать буфер? Если всё равно ты знаешь размер полученных данных которыми забился буфер
    d:=recv(sock,buf,SizeOf(buf),0); // тут у тебя D будет содержать размер данных или -1 при ошибке
    len:=len+d; // а если была ошибка и d =-1 то ты от уже считанных данных откусишь 1 байт.
    for i:=1 to d do result := result + buf[i]; // зачем?? если можно сразу копировать через copy
until d<=0;