看下OnWorkBegin,OnWork,OnWorkEnd,这3个事件,实时的下载进度,应该是OnWork:TWorkEvent = procedure(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64) of object;查帮助可以得知: AWorkCount:发送 或接收的字节数。