Source Code Traffic Digital

Screenshot :

Step 1:
tambahkan variabel

    var
    Download : Integer;
    Upload : Integer;

Step 2 :

    Kemudian, tambahkan di bagian Execute:
    upload:= upload+Length(AThread.NetData);

    sama bagian OutBound:
    download:= download+Length(AThread.NetData);

Step 3 :
kemudian tambahkan komponen VrNum(VrLcd)
tambahkan 2 komponen tersebut

tambahkan code di bwah di bagian timer :

    downText.Caption := FormatFloat('0',download/1024);
    uploadText.Caption := FormatFloat('0',upload/1024);
    VrNum1.Value := StrToInt (downText.Caption);
    VrNum2.Value := StrToInt (uploadText.Caption);
    download := 0;
    upload := 0;