奇怪的问题，好心人来帮助一下！
关于用IDHTTP下载，主要代码大概如下：
。。。。
IdHTTP1.Get(aURL, tStream);
。。。。
界面有个进度条：
procedure TUpdatefrm.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
ProgressBar1.Max:=AWorkCountMax;
ProgressBar1.Min:=0;
ProgressBar1.Position:=0;
end;

procedure TUpdatefrm.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position:=ProgressBar1.Position+AWorkCount;
end；

procedure TUpdatefrm.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position:=ProgressBar1.Max;
end;


为什么在实质下载中，进度条进度已经到头了，但是还是一直在下载（因为下载完成了我有“下载完成!”的提示，但是这个提示一直等到很久了才出来）,
进度条已经不动了，且等待了很久，才提示“下载完成!”

这是为什么？在线等。。

[解决办法]
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount; // 换成这样看看
end;