mail status ... progessbar

[Stevie]

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