Pasar valores a una variable tipo const

[Reyhert]

Hola a todos los programadores Delphi del Foro...

Les tengo una pregunta:

Como puedo hacer para darle un valor a una variable y no modificarlo mas en todo el programa, seria como una constante pero sin saber cual es el valor inicial en un primer momento.

En un RichEdit, cuando se ingresa un caracter determinado, quiero almacenar su valor de posicion en el texto.

Yo hice una cosa como esta...

var 
   Valor: Integer;    // Posicion en el texto
   Longitud: Integer; // Cantidad total de caracteres
   Caracter: String;  // El caracter

Begin
   
   Valor := 0; // Inicializo la variable

   Caracter := RichEdit1.Text[Longitud]; // Ultimo caracter introducido

   // Ahora comparo el caracter introducido, con el que estoy buscando, 
   // para poder guardar su posicion en el texto.
   
   If Caracter = '{' Then
      Valor := Longitud; // Guardo la posicion

   ...

El codigo funciona bien, guarda el valor de la posicion, pero cuando ingreso otra letra, el valor buelve a 0.
Cual puede ser el error que estoy cometiendo, y como podria hacer para dar el valor a una variable y no modificarlo despues.

De antemano muchas gracias a todos.

Salu2.