// ...

procedure RenameRegistryValue(const AHive : HKEY; const AKeyPath, AValueName, ANewValueName : String);
begin
  var pData := nil;
  var ADataSize : DWORD;
  ///

  var AKeyHandle : HKEY;
  var AResult := RegOpenKeyExW(AHive, PWideChar(AKeyPath), 0, KEY_QUERY_VALUE or KEY_SET_VALUE, AKeyHandle);
  if AResult <> ERROR_SUCCESS then
    raise EWindowsException.Create('RegOpenKeyW', AResult);
  try
    var AValueType : DWORD;
    ///

    ReadRegistryValue(AHive, AKeyPath, AValueName, AValueType, pData, ADataSize);

    SetRegistryValue(AHive, AKeyPath, ANewValueName, AValueType, pData, AdataSize);

    DeleteRegistryValue(AHive, AKeyPath, AValueName);
  finally
    if Assigned(pData) then
      FreeMem(pData, ADataSize);

    ///
    RegCloseKey(AKeyHandle);
  end;
end;

// ...

begin
  try
    RenameRegistryValue(HKEY_CURRENT_USER, 'Software\Test', 'Test Value', 'New Value Name');
  except
    on e : Exception do
      WriteLn(e.Message);
  end;

// ...

---

Depends On

• EWindowsException
• Create or Modify Registry Value
• Read Registry Value
• Delete Registry Value

---

---