Gennemløb af SubKeys

Med GetKeyNames(); f.eks.:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TRegistry.Create do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\Software\', true);
    GetKeyNames(ListBox1.Items);
    Free;
  end;
end;

Jeg har ingen ListBox1 ??

Hvordan vil du gennemløbe den??

procedure TForm1.Button1Click(Sender: TObject);
var
L: TStringList;
I: Integer;
begin
  with TRegistry.Create do
  begin
    L := TStringList.Create;
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\Software\', true);
    GetKeyNames(L);
    for I := 0 to L.Count - 1 do
      ShowMessage(L.Strings[I]);
    Free;
  end;
end;

Er det noget i den stil??

Det var lige det jeg søgte.  TAK