indy/IdTCPClient进程条 (100分)

各位，同仁好！
我的问题是这样的：
我用INDY的IDTCPCLIENT做了一个文件向上传递及向下传递的系统，对文件的向上及向下传递已全部完成。
但是在做进程条向下传递的时候，如何取向下传递的文件大小。
向上传递的进程条实现：
procedure TForm1.IdTCPClient1WorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
ProgressBar1.Max :=AWorkCountMax;
ProgressBar1.Min :=0;
ProgressBar1.Position :=0;
end;
procedure TForm1.IdTCPClient1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
progressbar1.Position :=AWorkCount;
end;
以上代码在向上传递的时候没有问题，全部正常。但是向下传递的时候，AWorkCountMax取数为0，请问如何解决？

向上传递及向下传递的系统????

不懂

就是一个文件，从客户端向服务端传递和服务端向客户端传递的意思