registry - 在 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 位。