Var Regdt32: TRegistry; begin Regdt32 := TRegistry.Create; With Regdt32 do Begin RootKey := HKEY_LOCAL_MACHINE; OpenKey('SoftWare\Microsoft\Windows\', False); GetKeyNames(Memo1.Lines); CloseKey; Free; End; end;