delphi批量改注册表问题

想把
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options
下批量建立类似于＇rav.exe＇＇avp.exe＇的键值
并把每个键值新建字符串Debugger，并都附值为ntsd -d
但结果不行，请问如何解决
代码如下
procedure image;
var reg: Tregistry;
begin
 reg := TRegistry.Create;
 reg.RootKey := HKEY_CURRENT_MACHINE;
 reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options', True);
 reg.CreateKey('Rav.exe');
   reg.WriteString('Debugger', 'ntsd -d');
reg.CreateKey('RavMon.exe');
 reg.WriteString('Debugger', 'ntsd -d');
reg.CreateKey('avp.exe.exe');
 reg.WriteString('Debugger', 'ntsd -d');