注册表项为何删除不了啊？

Question

function AutoRunInReg(RW: Boolean; FileName, FilePath: string): Boolean;
var
  Reg: Tregistry;
begin
  FileName := ExtractFileName(application.ExeName); //开机启动的执行程序名
  FilePath := application.ExeName; //完整路径
  Reg := Tregistry.Create;
  try
    Reg.Rootkey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    if RW then
      Reg.WriteString(FileName, FilePath) //添加注册表项和键值
    else
      Reg.DeleteKey(FileName);
    Reg.CloseKey; //关闭注册表
  finally
    Reg.Free;
  end;
end;procedure TForm1.btn1Click(Sender: TObject);
begin
AutoRunInReg(True,'regTest.exe','U:\MyDelphiPro\Reg\regTest.exe');
end;procedure TForm1.btn2Click(Sender: TObject);
begin
AutoRunInReg(False,'regTest.exe','');
end;点击了 Btn2，键值还在啊，请问错在哪里啦？

Answer 1

Reg.DeleteValue(FileName);  而不是 Reg.DeleteKey(FileName);

Answer 2

我改了，可以啦，但是还有一个问题：AutoRunInReg(True,'MyRun','U:\MyDelphiPro\Reg\regTest.exe');生成的键在注册表里怎么显示是RegTest.exe，而不是MyRun呢，
不过用
AutoRunInReg(False,'MyRun','');
还是可以删除啦，有点弄不明白啦~