奇怪的有关问题，好心人来帮助一下

奇怪的问题，好心人来帮助一下！
关于用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;