Estimado defcon, siento discrepar contigo. Pero creo que más bien el problema se soluciona -en primera instancia- utilizando constante. En segunda instancia (que es lo mejor), sería reestructurar el código. Si este error te está apareciendo es porque estás aplicando malas técnicas de programación. Estás escribiendo procedimientos extremadamente largos y utilizando en ellos constantes líneales (o en línea). Por ejemplo:
Código Delphi
[-]procedure un_procedimiento_muy_largo;
begin
if (VariableX = 'CONTABILIDAD') then
ShowMessage('Hola contador!')
Como primera instancia, para solventar el problema, hay que apartar esas constantes del código de lógica. Por ejemplo:
Código Delphi
[-]procedure un_procedimiento_muy_largo;
const CONTABILIDAD = 'CONTABILIDAD';
HOLA_CONTADOR = 'Hola contador!';
begin
if (VariableX = CONTABILIDAD) then
ShowMessage(HOLA_CONTADOR )
A cómo dije eso sería en primera instancia. Luego, habrá que refactorizar el código y dividir ese procedimiento en varios.
Saludos,
Chris