Как с помощью сокета скачать файл?

 buffer[0..200] array of stintg;
 
addr.sin_family:= AF_INET;
    addr.sin_port:= htons (80);
    addr.sin_addr.s_addr :=  adress;
 
    if (connect(s,addr,sizeof(addr))=SOCKET_ERROR) then
    
        errormessage();
    
 
   
    sprintf (buffer,'GET somefile.exe'#13#10'Host: somehost'#13#10#13#10');
    send (s, buffer, sizeof(buffer), 0);

var
 Site : PChar;
 sock : TSocket;
 HostEnt : PHostEnt;
 WSA : TWSAData;
 addr : sockaddr_in;
 tos : String;
 hf:dword;
 i:integer;
 buf:array[0..255] of char;
 sendbuffer:array[1..1024] of char;
begin
 if WSAStartup($0101, WSA) <> 0 then
  Exit;
 sock := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
 FillChar(addr, SizeOf(sockaddr_in), 0);
 addr.sin_family := AF_INET;
 addr.sin_port := htons(80);
 Site := 'www.mysite.ru';
 try
 HostEnt := gethostbyname(Site);
 addr.sin_addr.s_addr := Longint(PLongint(HostEnt^.h_addr_list^)^); // вот тут ошибка в чем прикол ?
 except
  messagebox(0,'Fuck','',0);
 end;
 if  Connect(sock, addr, SizeOf(addr)) = SOCKET_ERROR then
 messagebox(0,'Fuck','',0);
 
       
          FillChar(sendbuffer, sizeof(sendbuffer),0);
 strcopy(@sendbuffer, 'GET [url]http://mysite.ru/pth10.rar[/url] HTTP/1.0');
 strcat(@sendbuffer, #13#10'Host: mysite.ru');
 strcat(@sendbuffer, #13#10'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');
 strcat(@sendbuffer, #13#10'Accept: */*');
 strcat(@sendbuffer, #13#10'Range: bytes=0-');
 strcat(@sendbuffer, #13#10#13#10);
 
      tos:= 'logo.png';
 send(sock,sendbuffer,Length(sendbuffer), 0);
 hf:=_lopen(PChar(tos),OF_CREATE+OF_WRITE );       { TODO 1 -o8 -c66 : read }
 if hf = HFILE_ERROR   then
  hf:=_lcreat(PChar(tos),0);
 
 Sleep(2000);
repeat
 i := recv(sock, buf, sizeof(buf), 0);
 _lwrite(hf,@buf,i);
 UNTIL
i <= 0;
  _lclose(hf) ;
       CloseSocket(sock);
    WSACleanup();
 
end.