Menampilkan upload dan download Traffic pada project

Screenshot :

yang dibutuhkan :

-2 label
-timer

ubah name label menjadi downText dan UploadText

lalu masukan code berikut pada var cari diatas {$R *.dfm}
lengkapnya

Code:
var
Form1: TForm1;
Download : Integer;
Upload : Integer;

klik 2x pada timer dan masukan code dibawah

Code:
downText.Caption := FormatFloat('Down: ##0.## KB/s',download/1024);
UploadText.Caption := FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;

sisipkan code dibawah pada request dan respon

Request
Code:
upload:= upload+Length(AThread.NetData);

Response:
Code:
download:= download+Length(AThread.NetData);