Hola.

Una idea que utilizo hace mucho tiempo es la siguiente:

Tengo una función que llamo Initialize y que tiene (entre otras cosas)

FUNCTION trueSoftInitialize( lInstalaFonts ) AS VOID

PUBLIC _C3_SYSDATA[ _C3_SYSDATA_SIZE ]

C3.AppName := 'trueSoft'
C3.AppCaptionname := C3.AppName
C3.AppCopyright := 'Ñ Servicios Informáticos, Soc. Coop.'
C3.AppStartPath := ExtractFilePath( Application:ExeName )

........

RETURN

En un fichero CH guardo:

MEMVAR _C3_SYSDATA

#define _C3_SYSDATA_SIZE 40

#xtranslate C3.AppStartPath => _C3_SYSDATA\[ 8\]
#xtranslate C3.AppName => _C3_SYSDATA\[ 9\]
#xtranslate C3.AppCaptionName => _C3_SYSDATA\[ 11\]
#xtranslate C3.AppCopyright => _C3_SYSDATA\[ 12\]

Con esto defino UNA sola variable publica y puedo tener las que necesite solo con modificar el tamaño de C3_SYSDATA_SIZE
y definir los translate adecuados.

El código en la aplicación queda muy claro.
Saludos

_________________
Un saludo.
Jesús P. Melgar Velasco