Registry: GetKeyName + Ausgabe in ListBox

[Aike]

Hallo Leute

Ich habe folgendes Programmierziel:
Aus einem Registry-Schlüssel sollen alle Keys ausgelesen werden und nacheinander in einer ListBox (lstbxCharaktere) ausgegeben werden.
Dazu habe ich dies programmiert:

Delphi-Quellcode:

var Charaktere:TStringList;
    i:integer;
    regist:TRegistry;
begin
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CURRENT_USER;
  regist.OpenKey({Key wird geöffnet});
  try
    Charaktere:=TStringList.Create;
    regist.GetKeyNames(Charaktere);
  finally
    regist.free;
  end;

  for i:=0 to Charaktere.Count-1 do
  begin
    try
      lstbxCharaktere.Items.Add(Charaktere.Strings[i]);
    finally
      Charaktere.Free;
    end;
  end;
end;

Das Schöne ist: Wenn es nur einen Key gibt, funktioniert alles reibungslos. Ansonsten gibt es eine Exception (Zugriffsverletzung).
Ich habe hier und auch in anderen Foren keinen Beitrag dazu finden können

Vielen Dank im Voraus!