Einen Timer und das hier:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := Format('%d Bytes/sek', [BytesSend - Start]);
Label1.Repaint;
Start := BytesSend;
end;
Den Timer in OnWorkBegin enablen und im OnWorkEnd disablen.
Start in diesen beiden Methoden auf 0 setzen; BytesSend im OnWork auf AWorkCount setzen