Bloqueando Gerenciador de Tarefas Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 DesativarTaskMgr(true);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 DesativarTaskMgr(false);
end;

procedure TForm1.DesativarTaskMgr(desativar: Boolean);

  var
 reg: TRegistry;
begin
 reg := TRegistry.Create;
 reg.RootKey := HKEY_CURRENT_USER;
 reg.OpenKey('Software', True);
 reg.OpenKey('Microsoft', True);
 reg.OpenKey('Windows', True);
 reg.OpenKey('CurrentVersion', True);
 reg.OpenKey('Policies', True);
 reg.OpenKey('System', True);

 if (desativar) then
   reg.WriteString('DisableTaskMgr', '1')
 else
   reg.DeleteValue('DisableTaskMgr');

 reg.CloseKey;
end;



end.
Uses declarar não esquece
  Registry;