procedure Tform.CheckBox13Click(Sender: TObject);
var registry:tregistry;
begin
registry:=tregistry.Create;
registry.RootKey:=HKEY_CURRENT_USER;
registry.OpenKey('Software/Microsoft/Windows/Currentversion/Policies/Explorer',true);
if checkbox13.Checked=true then
registry.WriteInteger('Noviewcontextmenu',1)
else
registry.WriteInteger('Noviewcontextmenu',0);
end;