[[seoane]]

Con WriteInteger puedes hacerlo sin problemas:

Código Delphi [-]
with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if OpenKey('\Software\Pruebas',TRUE) then
    begin
      WriteInteger('Prueba',25);
      CloseKey;
    end;
  finally
    Free;
  end;