为什么 TRegistry.RestoreKey 不能恢复 TRegistry.SaveKey 所保存的键哪?????

[tomorrow_hym]

请问
TRegistry.RestoreKey 和 TRegistry.SaveKey 应该好何使用(最好有例子,万分感激)!

[jaguarcts]

procedure TfrmXML.Button3Click(Sender: TObject);
var
reg:TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\3721\CsnMin', True) then
begin
Reg.SaveKey(IntToStr(KEY_ALL_ACCESS),'d:\x3721.reg');
Reg.CloseKey;
end;
Reg.Free;
end;