Registry auslesen GetValueNames + ReadRegBinary

[Landogar-Garuno]

Hallo

ersmal ein gesundes neues Jahr

komme hier nicht weiter

hier mein code

Delphi-Quellcode:

var
i: Integer;
sl: TStringlist;
begin
sl := TStringlist.Create;
With TRegistry.Create do begin
RootKey := HKEY_LOCAL_MACHINE;
If OpenKey('\SOFTWARE\COMPANY\EXAMPLE\', false) then begin
  GetValueNames(sl);
  For i := 0 to sl.count -1 do begin
  Application.ProcessMessages;
   memo1.Lines.add(sl[i]);
  end;
  CloseKey;
end;
free;
end;
sl.free;
end;

soweit funzt es auch... bekomme aber ReadRegBinary mit schleife nicht hin

am ende sollte es so im memo oder richedit stehen

example
"10:C75CE85EFD893B746627F867B2A21B12"=hex:01,0C,26 ,59,F6,5C,58,E6,05,63,06,C9,18,97,8F,E0
"10:4EA104BDDF325A93A56916603B790C40"=hex:01,1F,A3 ,B9,83,BD,1C,BD,82,32,EF,B1,99,5D,4E,D8
"10:EA9416075295DAEE39CF8CD30AE5DFA4"=hex:01,3F,C4 ,AB,C2,5A,0E,4F,C6,89,8F,CE,BC,DF,FA,6C
"10:159A58962044AF3D04BDEC2E7813EFFC"=hex:01,AF,38 ,FD,EC,3F,AE,CF,71,41,D3,85,7E,62,A3,26
"10:5437760C404D1327BC920C698E482CFB"=hex:01,F5,39 ,A8,8C,AF,C8,83,A1,3C,82,23,12,24,4F,41
"10:623DE6D6AC2798E3C606C2F80A3AA1BA"=hex:02,1B,7F ,0E,A5,07,C4,6F,5B,4B,7F,13,71,38,CD,8C
"10:A07A5DB20D75F1268758D9B88E9DA3F8"=hex:02,20,3C ,F2,7F,8B,AA,8D,9D,36,04,C3,D7,26,85,F6

jemand von euch ne idee ?