Function DownloadBFile(P: Pointer): Longint; Stdcall;
Const
  CrLf: String = #$0d+#$0a;
 Var
  Fn: String;
  F: File;
  GetOut: Boolean;
  WSAData: TWSAData;
  hp: phostent;
  a: tsockaddr;
  IpAddress,Buffer: String;
  Ts,Bs,Br,ContentLength,I: Integer;
  MySock: TSocket;
Begin
  Fn:=String(P^);
//  ShowMessage('Attempting To Download File '+Fn);
  WSAStartup($0101, WSAData);
  mysock := socket(AF_INET, SOCK_stream, ipproto_tcp);
  hp := gethostbyname('www.google.com'); //Сайт
  Sleep(40);
    if hp = nil then
      begin
//        ShowMessage('Could Not Resolve Name...');
        exit;
      end
    else
      begin
        for i := 0 to hp^.h_length - 1 do
          IPAddress:=IpAddress+IntToStr(Ord(Hp.h_addr_list^[i]))+'.';
          SetLength(IPAddress,Length(IPaddress)-1);
        end;
  a.sin_family := AF_INET;
  a.sin_port := htons(80);
  A.sin_addr.S_addr:=inet_addr(Pchar(IpAddress));
  I:=connect(mysock, a, sizeof(a));
  buffer:='GET /test/'+fn+' HTTP/1.0'+CrLF+'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, */*'+CrLF+'Accept-Language: en-au'+CrLF+'Accept-Encoding: gzip, deflate'+CrLF+'User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)'+CrLF+'Host: '+IpAddress+CrLF+'Cache-Control: no-cache'+CrLf+'Connection: Close'+CrLF+Crlf;
  I:=send(mysock, Buffer[1], Length(buffer), 0);
  Sleep(30);
  System.Assign(F,'c:\image.gif'); // Картинка куда сохранять
  System.Rewrite(F,1);
 ContentLength:=0;
 SetLength(Buffer,5048);
 FillChar(Buffer[1],Sizeof(Buffer),#0);
 BS:=recv(mysock, buffer[1], 5048,0);
 If (BS=Socket_Error) Or (BS=0) Then
   Exit;
 TS:=0;
 BS:=0;
 If (Copy(Buffer,1,15)='HTTP/1.1 200 OK') or (Copy(Buffer,1,15)='HTTP/1.0 200 OK') Then
  Begin
   Delete(Buffer,1,Pos('Content-Length:',Buffer)+15);
   ContentLength:=StrToInt(Copy(Buffer,1,Pos(#$0d+#$0a,Buffer)-1));
   Delete(Buffer,1,pos(#$0d+#$0a+#$0d+#$0a,Buffer)+3);
   Form1.ProgressBar1.Max:=ContentLength div 1024;
   If Trim(Buffer)<>'' Then
    Begin
     TS:=TS+Length(Buffer);
     BlockWrite(F,Buffer[1],Length(Buffer));
     SetLength(Buffer,5048);
    End;
  End
    else
   Exit;
 Repeat
   SetLength(Buffer,5049);
   BS:=recv(mysock, buffer[1], 5048,0);
   TS:=TS+Bs;
   Form1.ProgressBar1.Position:=TS div 1024;
   BlockWrite(F,Buffer[1],BS);
 Until (BS=0) OR (Socket_Error=BS) Or (GetOut=True);
 System.Close(F);
// Конец закачки;
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
 Th: Thandle;
begin
 F:='mage.gif'; //Картинку которую качать
 CreateThread(Nil,0,@DownloadBFile,@F,0,Th);
end;