[donatas]

дело пошло на принцип

procedure TForm1.Button1Click(Sender: TObject);
var
Registry:TRegistry;
Buf:array[0..3]of byte;
ST:TStringList;
I,Y:integer;
begin
Registry:=TRegistry.Create;
ST:=TStringList.Create;

Registry.RootKey:=HKEY_DYN_DATA;
Registry.OpenKeyReadOnly('PerfStats\StatData');
Registry.GetValueNames(ST);

for I:=0 to ST.Count -1 do begin
         if (Pos('ConnectSpeed',ST.Strings[I])<> 0)then begin
             Registry.ReadBinaryData(ST.Strings[I],Buf,Sizeof(Buf));
             Y:=Buf[0] + (256*Buf[1]) + (4096*Buf[2]) + (65536*Buf[3]);
             Memo1.Lines.Add('ConnectSpeed: ' + inttostr(Y));
             end;
   end;

ST.Free;
Registry.free;
end;