function download (ServerName,File: string):boolean;
var
 s: TSocket;
 Data: TWSAData;
 Addr: TSockAddr;
 Recived: Integer;
 BtBuff: array [0..1023] of Byte;
 HTTPRequest: string;
 F: File;  
begin
 WSAStartup($101, data);
 s:=socket(AF_INET, SOCK_STREAM,IPPROTO_TCP);
 Addr.sin_family:=AF_Inet;
 Addr.sin_port:=htons(80);
 Addr.sin_addr.S_addr:=inet_addr(PAnsiChar(ServerName));
 if (connect(s,Addr,SizeOf(TSockAddr)) <> SOCKET_ERROR) then
   begin
     HTTPRequest:='GET '+File+' HTTP/1.1'+#13#10+'Host: '+ServerName+#13#10+'Connection: Close'+#13#10#13#10;
     send(s, HTTPRequest[1], length(HTTPRequest),0);
     Recived:= 1;
     AssignFile(F,File);
     Rewrite(F, 1);
     while Recived <> 0 do
       begin
         Recived:= recv(s,BtBuff,Length(BtBuff),0);
         BlockWrite(F,BtBuff,Recived);
       end;
     CloseFile(F);
     closesocket(s);
     Result:= True;
   end;
 WSACleanup();
end;

HTTP/1.1 200 OK
Date: Sat, 12 Apr 2008 16:42:10 GMT
Server: Apache/2.2.6 (Win32) PHP/5.2.3
Last-Modified: Sat, 12 Apr 2008 16:12:24 GMT
ETag: "32fe-1f0-50f3172c"
Accept-Ranges: bytes
Content-Length: 496
Connection: close
Content-Type: application/zip

         HTTPRequest:='GET '+PathToFile+' HTTP/1.1'+#13#10+'Host: '+ServerName+#13#10+'Connection: Close'+#13#10#13#10;
         send(s, HTTPRequest[1], Length(HTTPRequest),0);
         Flag:= 0;
         Recived:= 1;
         while Recived <> 0 do
           begin
             Recived:= recv(s,BtBuff,Length(BtBuff), 0);
             if Flag = 0 then
               begin
                 for i:=0 to Length(BtBuff)-1 do
                   if ((BtBuff[i] = 13) AND (BtBuff[i+1] = 10)) then
                     if ((BtBuff[i+2] = 13) AND (BtBuff[i+3] = 10)) then
                       break;
                 ii:= i + 4;
                 for i:= ii to Length(BtBuff)-1 do
                   begin
                     SetLength(BtBuffTmp,Flag+1);
                     BtBuffTmp[Flag]:= BtBuff[i];
                     inc(Flag);
                   end;
                 BlockWrite(F,BtBuffTmp,Length(BtBuffTmp));
                 Flag:= 1;
               end
             else
               BlockWrite(F,BtBuff,Recived);
           end;
         CloseFile(F);
         closesocket(s);