写注册表开机执行的代码出现的问题

Question

一下是代码：
procedure TMainF.Button2Click(Sender: TObject);
var
  kk: Tregistry;
  ExcFileName,Name :String;
begin
  DefaultPath := ExtractFilePath(ParamStr(0));
  if DefaultPath[Length(DefaultPath)] <> '\' then
    DefaultPath := DefaultPath + '\';
  Name := ExtractFileName(ParamStr(0));
  ExcFileName := DefaultPath + Name;
  kk:=Tregistry.Create;
  try
    kk.RootKey:=HKEY_LOCAL_MACHINE;
    kk.OpenKey('\Sofrware\Microsoft\Windows\Currentversion\Run',true) ;
    kk.WriteString('RCheckGate',ExcFileName);
    kk.CloseKey ;
  finally
    kk.Free;
  end;end;
编译没有出错，但是执行到kk.WriteString('RCheckGate',ExcFileName);的时候出现错误：failed to set data for'RCheckGate'
请问是哪里出了问题，怎么解决，请大侠帮忙修改一下程序

Answer 1

娃哈哈，原来如此，调试通过，楼上的太仗义了 ，接分吧！！

Answer 2

娃哈哈，（向楼主学习一下）
这分来得太容易了
楼主才是真正的仗义
谢了