Hola DTAR
Se me ocurre:
Código Delphi
[-]
IF edit1 = '1' then
edit1:= 'A';
IF edit1 = '11' then
edit1:= 'B';
IF edit1 = '111' then
edit1:= 'C';
IF edit1 = '2' then
edit1:= 'D';
IF edit1 = '22' then
edit1:= 'E';
Con esto se podria empezar a analizar el procedimiento.
Bueno es una idea.
Saludos