ayuda cambiar nombre

[ecfisa]

Hola.

Código Delphi [-]
const
{$J+}  // (o activar Assignable typed constants)
  Numero : Integer = 30;
  Cadena : string =  'Club Delphi 2020';
{$J-}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Numero := 15;
  Cadena := 'Corona virus 2020';
  ShowMessage(Numero.ToString + #10 + Cadena);
end;

Pero no es aconsejable esos atajos para modificar las constantes ya que desactiva las optimizaciones que el compilador prevee para con con estas.

Con el mismo resultado y toda la seguridad, podes usar variables en su lugar:

Código Delphi [-]
var
  Numero  : Integer = 30;
  Cadena  : string  = 'Club Delphi 2020';
  pNumero : Integer absolute Numero;
  pCadena : string absolute Cadena;

procedure TForm1.Button1Click(Sender: TObject);
begin
  pNumero := 15;
  pCadena := 'Corona virus 2020';
  ShowMessage(Numero.ToString + #10 + Cadena);
end;

Saludos