为什么注册表删除失败呢？ ( 积分: 100 )

procedure RegInstall;
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('/SOFTWARE/Microsoft/Windows/CurrentVersion/Run',False) then
begin
if not Reg.KeyExists(Application.Title) then
Reg.WriteString(Application.Title,'"'+ParamStr(0)+'"');
Reg.CloseKey;
end;
finally
reg.Free;
end;
end;

procedure RegUninstall;
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('/SOFTWARE/Microsoft/Windows/CurrentVersion/Run',False) then
begin
Reg.DeleteKey(Application.Title);//DeleteKey=Flase为什么？
Reg.CloseKey;
end;
finally
reg.Free;
end;
end;
以前做的时候OK着呢，现在奇怪了，居然删除KEY失败。

Reg.DeleteKey(Application.Title);// 删除主键
改为
Reg.DeleteValue(Application.Title);// 删除数据

接受答案了.