Registry-Folder auslesen

[Counter909]

hi


ich möchte aus der Registry (zum beispiel das Verzeichnis "Run") auslesen und diese dann
in einer Memo-liste, list (ist egal) aufzeichnen.

doch bei mir kommt immer ein Lesefehler:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
Reg:tregistry ;
keys:tstringlist ;

begin

   Reg := TRegistry.Create;
   reg.Rootkey:=HKEY_CURRENT_USER;
   if reg.OpenKey('Software\Microsoft\Windows\Run',true) then
   begin
   Reg.GetKeyNames(Keys);         //// hier schmiert er iwie ab
   keys.Add(memo1.Text);
   end;
      reg.Free

end;

aber i.wie komm ich da gerade nicht weiter

weiß einer woran das liegen kann ?