El código que estaba probando como respuesta al evento 'OnGetText' era algo asi:....
if (code->AsInteger == 0)
Text = "(" + code->AsString + ")";
else
Text = code->AsString;
....
El problema por el cual no andaba era que originalmente el proyecto se comenzó con el BCB1 y posteriormente se migró a BCB4. Si el proyecto se inicia con el BCB4 el código funciona como se espera. Parece que Borland cada vez se parece mas a Microsoft ....!!
Gracias.
Armando.