List Registry Key & Names

procedure TForm1.Button1Click(Sender: TObject);
var reg : TRegistry;
begin
  reg := TRegistry.Create;
  try
  	reg.RootKey := HKEY_LOCAL_MACHINE;   // Rott
  	reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',false); // Key
  	reg.ReadString('AppHost');  // Values Names
  	//Reg.ReadInteger('AppHost');
  	Reg.GetKeyNames(ListBox1.Items);
  	Reg.GetValueNames(ListBox2.Items);
  finally
  reg.Free
  end;
end;