rejestr i pobieranie klucza

var Reg:TRegistry;
    i:integer;
    Info:TRegDataInfo;
begin
Reg:=TRegistry.Create;
try
  Reg.RootKey:=HKEY_CURRENT_USER;
  if (Reg.OpenKeyReadOnly('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced')) then
    begin
    Reg.GetValueNames(ComboBox1.Items);
    for i:=0 to ComboBox1.Items.Count-1 do
      begin
      Reg.GetDataInfo(ComboBox1.Items[i], Info);
      if (Info.RegData=rdInteger) then
        ComboBox1.Items[i]:=ComboBox1.Items[i]+': '+IntToStr(Reg.ReadInteger(ComboBox1.Items[i]))
      else if (Info.RegData=rdString) then
        ComboBox1.Items[i]:=ComboBox1.Items[i]+': '+Reg.ReadString(ComboBox1.Items[i]);
      end;
    end;
except
  end;
Reg.Free;
end;

 Reg.GetValueNames(S);