{
 This example demonstrates how to enumerate all registry keys from
 a certain key (here: HKEY_CURRENT_USER)
}


 uses
  Registry;
 procedure TForm1.Button1Click(Sender: TObject);
 var
  indent: Integer;
  procedure EnumAllKeys(hkey: THandle);
  var
  l: TStringList;
  n: Integer;
  begin
  Inc(indent, 2);
  with TRegistry.Create do
  try
  RootKey := hkey;
  OpenKey(EmptyStr, False);
  l := TStringList.Create;
  try
  GetKeynames(l);
  CloseKey;
  for n := 0 to l.Count - 1 do
  begin
  memo1.Lines.Add(StringOfChar(' ', indent) + l[n]);
  if OpenKey(l[n], False) then
  begin
  EnumAllKeys(CurrentKey);
  CloseKey;
  end;
  end;
  finally
  l.Free
  end;
  finally
  Free;
  end;
  Dec(indent, 2);
  end;
 begin
  Memo1.Clear;
  Memo1.Lines.Add('Keys under HKEY_CURRENT_USER');
  indent := 0;
  Memo1.Lines.BeginUpdate;
  try
  EnumAllKEys(HKEY_CURRENT_USER);
  finally
  Memo1.Lines.EndUpdate;
  end;
 end;