fileSize := sRec.nFileSizeLow;

  while (bufsize > 0) do
  begin
    if not InternetReadFile(hFile, @buffer,READ_BUFFERSIZE,bufsize) then Break;
    if (bufsize > 0) and (bufsize <= READ_BUFFERSIZE) then
      st.Write(buffer, bufsize);
    _hi_OnEvent(_event_onReadProgress,integer(st.position));
  end;
  InternetCloseHandle(hFile);

  hFile := FtpOpenFile(hFTP,PChar(fn),GENERIC_READ,FTP_TRANSFER_TYPE_BINARY, 0);