[Crack502]

Самразобрался:

Код:

begin
  H := TRegistry.Create;
  with H do
  begin
    RootKey := HKEY_CURRENT_USER;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', true);
    WriteInteger('DisableRegistryTools', 0)
  end;
   H.CloseKey;
   H.Free;
  end;

Тему закрыть!