Загрузка файла

[-Jack-]

Всем доброго времени суток. Пытаюсь скачать файл при помощи данной функции

function GetInetFile(const fileURL, FileName: String): boolean;

var

  hSession, hURL: HInternet;
  Buffer: array[1..1024] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: String;
begin
  Result:=false;
  sAppName:=ExtractFileName(Application.ExeName);
  hSession:=InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  try
    hURL:=InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
    try
      AssignFile(f,FileName);
      ReWrite(f,1);
      repeat
        InternetReadFile(hURL,@Buffer,SizeOf(Buffer),BufferLen);
        BlockWrite(f,Buffer,BufferLen);
        Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+BufferLen;
        Application.ProcessMessages;
      until
        BufferLen = 0;
      CloseFile(f);
      Result:=True;
    finally
      InternetCloseHandle(hURL);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

но в итоге скачивается 1024 байт, а дальше не в какую ...

Подскажите, в чем может быть ошибка ?

[-Jack-]

Есть какие нибудь идеи ?
Проблема эта появилась на Delphi XE3 на Win 8