Registry Problem

[voddow]

Hallo und guten Abend,

ich habe ein kleines Problem, undzwar möchte ich aus der Reg die eingetragenen Autostart Programme auslesen und in eine ListBox schreiben, leider bleibt diese immer leer, auch der Wert für 'bla.Count' bleibt leer. Ich hab schon alles Mögliche versucht und überall geguckt, habe auch schon andere Schlüssel ausprobiert, bekomme aber nie ein Ergebniss.
Vielleicht kann mir ja jemand helfen:

Delphi-Quellcode:

uses
  Registry

var
  reg: TRegistry;
  bla: TStringList;

procedure TForm1.Button4Click(Sender: TObject);
var
i: integer;
begin
 Reg := TRegistry.Create(KEY_ALL_ACCESS);;
 bla := TStringList.Create;
 Reg.RootKey:=HKEY_LOCAL_MACHINE;
 try Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False);
    label1.Caption:=inttostr(bla.count);
    for I:=0 to bla.Count - 1 do
        begin
          reg.GetKeyNames(bla);
          Listbox1.Items.add(bla[I]);
        end;
 except
 Listbox1.Items.AddStrings(bla);
 end;
 bla.Free;
 reg.Free;
end;