problem sa RegSaveKey funkcijom

Code:

var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.Rootkey := HKEY_CURRENT_USER;
  Reg.Savekey('\Software\Blablabla', 'blablabla.reg');
end;

Code:

var
  RootKey, phKey: HKey;
  Key : string;
begin
  RootKey := HKEY_CURRENT_USER;
  Key := '\Software\Blablabla';
  RegOpenKeyEx(RootKey, PChar(Key), 0, KEY_ALL_ACCESS, phKey);
  RegSaveKey(phKey, PChar('test.reg'), nil);
  RegCloseKey(phKey);
end;

Code:

  ShellExecute(Handle, 'open', PChar('regedit.exe /e Key Filename'), '', sw_hide) ;

Code:

var
  RootKey, phKey: HKey;
  Key : string;
  lRet: Longint;
begin
  RootKey := HKEY_CURRENT_USER;
  Key := 'Software\BitTorrent';
  lRet := RegOpenKeyEx(RootKey, PChar(Key), 0, KEY_READ, phKey);
  if lRet = ERROR_SUCCESS then
  begin
    lRet := RegSaveKey(phKey, PChar('C:\test.reg'), nil);
    if lRet <> ERROR_SUCCESS then
      raise Exception.Create(SysErrorMessage(lRet));
  end
  else
    raise Exception.Create(SysErrorMessage(lRet));
end;