[ApxaHGe1]

Народ, а почему

Код:

rocedure HTTP2Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Int64);
begin
 ProgressBar.Position:= AWorkCount;
 ShowMessage ('');
end;

procedure HTTP2WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Int64);
begin
 ProgressBar.Position:= 0;
 ProgressBar.Max:= AWorkcountMax;
 Log.Lines.Add('Начинаю загрузку файла. Объем :'+IntToStr(AWorkcountMax));
end;

в моем коде не работают.... Просто добавил для проверки везде

Код:

ShowMessage ('');

и ниразу не поймал сообщений