with TDownloadURL.Create(self) do
      try
        URL:=path;
        FileName:=dest;
        OnDownloadProgress:=URL_OnDownloadProgress;
        ExecuteTarget(nil);
      except
       on e:exception do
        StatusMessage(e.message);
      end;

и

procedure URL_OnDownloadProgress
        (Sender: TDownLoadURL;
         Progress, ProgressMax: Cardinal;
         StatusCode: TURLDownloadStatus;
         StatusText: String; var Cancel: Boolean);
begin
 label1.caption:=IntToStr(Progress);
end;

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

а если отладчиком встать на label1.caption:=IntToStr(Progress); - заходит?

Проблему с прогрессбаром решил, добавив .update в обработчике OnDownload. С лейблом ни репеинт,ни апдейт, ни рефреш не помогают.

Какие мысли?

Все, проблема решена) Перемудрил, .update помог и с лейблами.