======为什么删不掉？注册表键。=======

Question

procedure TForm1.Button2Click(Sender: TObject);
var
    reg:tregistry;
begin
   Reg := TRegistry.Create;    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Software\myprogram\V9.00', True)
    then
       begin
          //edit1.text:=reg.ReadString('Company');
          if reg.ValueExists('MyApp') then
                begin
                    reg.DeleteKey('MyApp');
                    showmessage('OK!');
                end
          else showmessage('NO!');       end;end;注册表里已经有'MyApp'键值，但执行reg.DeleteKey('MyApp');后即发现没有被删除。为什么？

Answer 1

加上reg.closekey;
reg.free,使使，要是不行的话再说，，！

Answer 2

begin
  reg.DeleteKey('MyApp');
  showmessage('OK!');
  reg.closekey;
  reg.free;
end;也不行! 如何才行？

Answer 3

reg.DeleteKey('MyApp');-->
reg.DeleteValue('MyApp');

Answer 4

刚试了一下
RegF.DeleteValue('MyApp');