Проблемма про докачке файла

[Johnson]

Здравствуйте, уважаемые.
Столкнулся с проблеммой при докачке файла... вот код:

procedure TNewThread.Execute;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen,ResumePos: DWORD;
dwBufferLen,dwIndex: Cardinal;
dwBuffer:array[1..20] of char;
f: File;
sAppName,FilePath1: string;
begin
EnterCriticalSection(_cs);
if ExtractFileExt(FileName)='.exe' then begin
SetLength(FileName,Length(FileName)-1);
SetLength(FileURL,Length(FileURL)-1);
end;
FilePath1:=ExtractFilePath(Filename);
SetLength(FilePath1,Length(FilePath1)-1);
if not(DirectoryExists(FilePath1)) then CreateDir(ExtractFilePath(Filename));

   sAppName := ExtractFileName(Application.ExeName);
   hSession := InternetOpen('CheatPortal Helper', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
   try
      hURL := InternetOpenURL(hSession, PChar(fileURL),nil,0,0,0);
      try
         dwIndex  := 0;
         dwBufferLen := 20;
         if HttpQueryInfo(hURL, HTTP_QUERY_CONTENT_LENGTH,
                          @dwBuffer, dwBufferLen, dwIndex) then
            GetsSize :=StrToInt(StrPas(@dwBuffer));
         Synchronize(SetCurrent);
         AssignFile(f, FileName);

IF FileExists(FileName) then //Есть ли на диске этот файл
   begin
     Reset(f,1); //Ax, есть? Откроем!
     ResumePos := FileSize(f); //Откуда докачать
     Seek(f, FileSize(f)); //А писать будем в конец
   end else Rewrite(f,1); //А раз нет, так создадим

   if ResumePos>0 then //Если докачиваем,
     begin
          InternetSetFilePointer(hURL,ResumePos,nil,0,0); //То сместимся
          downSize:=ResumePos;
     end;

         repeat
            InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
            BlockWrite(f, Buffer, BufferLen);
            downSize:=downSize+BufferLen;
            Synchronize(SetCurrent);
         until BufferLen = 0;
         CloseFile(f);
         Progress:=1;
         Synchronize(SetProgress);
      finally
      InternetCloseHandle(hURL)
      end
   finally
   InternetCloseHandle(hSession)
   end;
LeaveCriticalSection(_cs);
end;

дело в том, что при попытке докачки, программа сначала начинает качать данные до позиции ResumePos без записи в файл, а только потом начинает скачивать и записывать в файл... по интернету поискал, у многих возникала подобная проблемма, но решения так и не нашел.
Подскажите, как решить эту проблемму?

[luman]

Сколько я крови на этом потерял, но всё-таки решил проблему, пусть даже и не сам
http://www.softtelecom.ru/algreg.htm