Работа с реестром через объект типа TRegistry

Как и было обещано, публикуется способ работы с реестром, работающий в Windows 7.

type 
TRegistryEx=class(TRegistry) 
end; 

{............} 

procedure TForm1.FormCreate(Sender: TObject); 
const 
KEY_WOW64_32KEY = $200; 
KEY_WOW64_64KEY = $100; 
var 
org:tregistryEx; 
key: HKEY; 
begin 
org:=tregistryEx.Create; 
org.RootKey:=HKEY_LOCAL_MACHINE; RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion', 0, KEY_ALL_ACCESS or KEY_WOW64_64KEY, key); org.SetCurrentKey(key); Edit1.Text:=org.ReadString('RegisteredOwner'); 
Edit2.Text:=org.ReadString('RegisteredOrganization');

Кроме того, объект TRegistry позволяет использовать и другие функции работы с реестром.