大牛们帮个忙，看一下这个代码错在哪里，为什么会有Run time Error（Fail to set data for "NoDriveTypeAutoRun"）？

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  a:array [1..4] of char;
begin
  a[1]:=#157;
  a[2]:=#0; a[3]:=#0; a[4]:=#0;
  With Reg do begin
    RootKey:=HKEY_CURRENT_USER;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Exploer',true);
    WriteBinaryData('NoDriveTypeAutoRun',a,4);
    CloseKey;
    end; //With
end;

注：这是禁止Autorun的注册表更改，路径没错，应该是给Binary类型的NoDriveTypeAutoRun赋值为：
9D 00 00 00