ayuda cambiar nombre

[MesiasPeru]

entiendo, pero el metodo que uso me funciona bien, ademas no siempre sera el valor de origen 30 o Club delphi(2020) esos valores cambian constantemente.

[MesiasPeru]

mi codigo es asi:

const

  Numero = &14522145; //este codigo "14522145" guarda un valor que siempre cambia puede ser 10 o 50 o 100 y asi...

procedure TForm1.Button1Click(Sender: TObject);
begin
  pbyte(Numero)^:=15; //y con esto hago que ese codigo sea solo 15
end;

pero ahora yo quiero para el caso de letras.