проблема с функцией скачивания файла из интернета

[ZeitGeist7]

с потоками я успешно разобрался(почти). но поток основал вот на этой функции:

Function  DownLoadRss(_LinkLoad, _SaveWay: string) : Boolean ;
 var F: File;
  BufferLen,SumSize: DWORD;
  hSession, hURL: HInternet;
  Buffer: array[1..1024] of Byte;

begin
 SumSize:=0;
//  ResumePos:=0;   //Инициализируемся
 AssignFile (F,_SaveWay);  //Свяжемся с файлом
 ReWrite(f,1);  // создадим
//Открыли сессию
 hSession:= InternetOpen('X-Kachalka',PRE_CONFIG_INTERNET_ACCESS,nil,nil,0);
//И наш УРЛ
  hURL := InternetOpenURL(hSession,PChar(_LinkLoad),nil,0,0,0);

  try
    REPEAT //Качаем
      InternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen); //Читаем буфер
      BlockWrite(f, Buffer, BufferLen); //Пишем в файл
    UNTIL BufferLen= 0;
  Result := true;
  except
   Result := false;
  end;
    InternetCloseHandle(hURL);
    Closefile(f);

 InternetCloseHandle(hSession);

end;

и у него такая проблема:
если программа запущена и функция используется первый раз то всё в порядке - файл закачивается и это чувствуется по затраченному времени и тому что программа занята.
но вот все последующие разы использования выкидывают такой фокус: файл (даже если он удалён) качается в разы быстрее, и он качается в том же виде что и первый раз( я качаю rss ленты и заметил этот фокус когда я посмотрел файл сразу после скачивания и сравнил с тем что был на сайте и спустя 3 часа. на сайте обновилось а вот "скачанный" файл нет).

и ещё: в оригинале примера этой функции была строка после

 BlockWrite(f, Buffer, BufferLen);

Application. Processmessages; <-Для чего это и что это?

[Пепел Феникса]

Application. Processmessages
это нужно что приложение ждало пока обработаются все сообщения
его нужно оставлять вообщето

[ZeitGeist7]

ясно.

а по функции что не так?