Como habilitar ou desabilitar o Gerenciador de Tarefas do Windows usando Delphi

procedure TForm3.Button5Click(Sender: TObject);
var
  reg: TRegistry;
begin
  // uses Registry

  // vamos criar uma instância da classe TRegistry
  reg := TRegistry.Create;

  // vamos abrir a chave que contém a entrada DisableTaskMgr
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\system',
    True);

  // vamos desabilitar o Gerenciador de Tarefas
  // se o valor fornecido for 1, o gerenciador será desabilitado
  reg.WriteString('DisableTaskMgr', '1');
  reg.CloseKey;

  // para habilitar basta excluir o valor da entrada
  //reg.DeleteValue('DisableTaskMgr');
  //reg.CloseKey;

  // vamos liberar o registro 
  reg.Free;
end;

 
// para habilitar basta excluir o valor da entrada
//reg.DeleteValue('DisableTaskMgr');
//reg.CloseKey;