kimcilhot

vrscope1.setdata(0, download div 400);
vrscope1.setdata(0, upload div 400);

-----

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if download2 < 1024 then
sLabel13.Caption := FormatFloat('Received: ##0.## Bit',download2)
else if (download2 > 1024) and (download2 < 1048576) then
sLabel13.Caption := FormatFloat('Received: ##0.## Kb',download2/1024)
else if (download2 > 1048576) and (download2 < 1073741824) then
sLabel13.Caption := FormatFloat('Received: ##0.## Mb',download2/1048576)
else if (download2 > 1073741824) and (download2 < 1099511627776) then
sLabel13.Caption := FormatFloat('Received: ##0.## Gb',download2/1073741824);

if upload2 < 1024 then
sLabel15.Caption := FormatFloat('Send: ##0.## Bit',upload2)
else if (upload2 > 1024) and (upload2 < 1048576) then
sLabel15.Caption := FormatFloat('Send: ##0.## Kb', upload2/1024)
else if (upload2 > 1048576) and (upload2 < 1073741824) then
sLabel15.Caption := FormatFloat('Send: ##0.## Mb', upload2/1048576)
else if (upload2 > 1073741824) and (upload2 < 1099511627776) then
sLabel15.Caption := FormatFloat('Send: ##0.## Gb', upload2/1073741824);
end;