غیر فعال کردن Ctrl+alt+delete

باسلام
من در موضوع بالا در اینترنت سرچ کردم و کد زیرو بدست اوردم نوشته بود این کد رو در رویداد on کلیک یک دکمه کپی کنید من این کار میکنم با مشکل مواجه میشم یعنی برنامه کامپایل نمیشه

کد:

---

procedure DisableTaskMgr(bTF: 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 bTF = True then
  begin
    reg.WriteString('DisableTaskMgr', '1');
  end
  else if bTF = False then
  begin
    reg.DeleteValue('DisableTaskMgr');
  end;
  reg.CloseKey;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DisableTaskMgr(True);
end;

---

لطفا اگه میشه یکم توضیح در باره ی این کد بدید و اگه میشه به هم بگید چه جوئری بکارش بگیرم
ممنونم

جزئيات رو دقت كن. بايد يونيت Registery رو Use كني

کد:

---

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure DisableTaskMgr(bTF: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DisableTaskMgr(bTF: 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 bTF = True then
  begin
    reg.WriteString('DisableTaskMgr', '1');
  end
  else if bTF = False then
  begin
    reg.DeleteValue('DisableTaskMgr');
  end;
  reg.CloseKey;
end; procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr(False);
end;

end.

---

يعني بايد دقيقا چي كار كنيم؟ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
يعني كلمه Registry رو در قسمت Uses بنويسي( با توجه به گفته دوستمان )