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

Question

关于用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;
为什么在实质下载中，进度条进度已经到头了，但是还是一直在下载（因为下载完成了我有“下载完成!”的提示，但是这个提示一直等到很久了才出来）,
进度条已经不动了，且等待了很久，才提示“下载完成!”这是为什么？在线等。。

Answer 1

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