用IdTcpClient怎么计算传输速度啊？

我在ClientWork事件里写了。但是刷不出来，总显示0.00KB
帮我看看啊
procedure TfrmMain.ClientWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
var
  TotalTime: Integer;  
begin
  //计算网络传输速度
  if GetTickCount - TickCount > 1000 then
    TotalTime := DateUtils.SecondsBetween(Now,dtStartTime); //相差秒数
  if TotalTime > 0 then
      AverageSpeed := (AWorkCount/1024) / TotalTime;
  TickCount := GetTickCount;
end;