Fórmulas químicas con Delphi

[Deiv]

Claro, no era sombra, sino que se sobreescribía cambiando el tamaño de la fuente (DISMINUÍA), estuve revisando el código (con los ARREGLOS), interesante forma de trabajar tiene, ahora por ejemplo:

- 1er click = COMO SIEMPRE no muestra NADA,
- 2do click = RECIÉN Muestra la Fórmula,
- 3er click = Se DISMINUYE el TAMAÑO de la FUENTE del PaintBox (LETRAS) - Esta es la NOVEDAD!!

- 1er click = Al parecer la Procedure PintaFormula() no trabaja la primera vez, y solo en el segundo click funciona.

Me pasé varios minutos buscando el error, y solo al cambiar el tamaño en:

PaintBox1.Font.Size:= 8;

- 1er click= ¡¡HURRA!! al fin muestra la Fórmula, al 1er click,
- 2do click= No pasa nada, todo OK.
- 3er click= Todo OK.

Aunque encontré el error, PERO NO SÉ EXPLICARLO, es que en las Propiedades de mi PaintBox la Fuente-Size estaba en = 8 y no coordinaba me parece lo que por código se escribía: PaintBox1.Font.Size:= 12; cuando igualé el tamaño de la fuente en la propiedad con el código, FUNCIONA AL PRIMER CLICK. En resumen si igualo el tamaño de las propiedades con el tamaño por código, a cualquier tamaño que fuere responde al primer click.

Ahora solamente me queda averiguar, haber si me dais una mano, ¿por qué ahora al 2do click se disminuye (cambia) el tamaño de la Fuente del PaintBox (LETRAS) o lo que sería para el programa los símbolos químicos?. Como inicialmente mencioné si igualo las propiedades del Size=8 no tengo ninguno de los problemas con los click (pareciera que tengo que estar supeditado a la fuente=8???) . Interesante....
Saluditos