1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

var
  ubt: Cardinal;                   // die bereits heruntergeladenen bytes 
  oneSec: Cardinal;             // grösse nach einer sec
  twoSec: Cardinal;             // grösse nach zwei sec

procedure TFrame_download.tmOneSecTimer(Sender: TObject);
begin
  if (start = True) then     // dieser Timer läuft im 1 sec-Takt
  begin
    oneSec := Ubt;           // grösse nach einer sec
  end;
end;

procedure TFrame_download.tmTwoSecTimer(Sender: TObject);
begin
  if (start = True) then   // dieser Timer läuft im 2 sec-Takt
  begin
    twoSec := Ubt;        // grösse nach zwei sec
  end;
end;

procedure TFrame_download.tmKbsTimer(Sender: TObject);
var                                               // Intervall := 1;
  kbs: double;                   
  str: String;
begin
  if (start = True) then
  begin
    kbs := (oneSec - twoSec)/1024;  // Umrechnung in kb
    str := Format('%8.1n', [kbs]);
    lblPtempo.Caption := str+' KB/s';
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  iCount: Integer = 0;   // stopuhr

procedure TFrame_download.Timer2Timer(Sender: TObject);
var
  str, str1: String;
  kbs: double;
begin
  if (start = True) then
  begin
    Inc(iCount);                       // Stopuhr
    kbs := (pUbt/1024) / iCount;
    str := Format('%8.1n', [kbs]);
    lblPtempo.Caption := str+' Kb/s';
  end;
  if (pUbt = pUbtMax) then lblPtempo.Caption := '';  // wenn beendet
end;