Delphi - Akses Registry

Ini adalah code untuk mengakses Registry

procedure TForm1.Button1Click(Sender: TObject);
var reg : TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey:= HKEY_CURRENT_USER;

if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\policies\system',true) then
begin
reg.WriteBool('DisableRegistryTools',false);

end;
finally
reg.Free;
end;
end;