procedure TForm1.Timer1Timer(Sender: TObject);
var
usage,usage1:integer;
begin
with TRegistry.Create do
begin
RootKey:=HKEY_DYN_DATA;
OpenKey('PerfStats/StatData',false);
ReadBinaryData('Dial-Up Adapter/TotalBytesRecvd',usage,sizeof(usage));
ReadBinaryData('Dial-Up Adapter/TotalBytesXmit',usage1,sizeof(usage1));
Caption:=IntToStr(usage)+','+IntToStr(usage1);
CloseKey;
Free;
end;
end;
