在Windows 8（64位）上从Delphi 7读取注​​册表的问题

Question

我在Windows 8上使用Delphi 7。

我准备的程序在注册表中创建了一个问题。

我的代码：

procedure DoAppToRun(RunName, AppName: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString(RunName, AppName);
    CloseKey;
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 DoAppToRun('MyAPP', 'C:/ProgramData/MyAPP.exe');
end;

我收到以下错误：

Error: Failed to set data for MyAPP

此程序在Windows XP中运行，但不是64位。