ayuda con AdoDataSet su CommandText y una functions

[jhcaboverde]

mira el arreglo que tuve que hacer por que no me deja compilar

Showmessage('Error en datos: '+E.ClassName+'-');//+E.ErrorMsg);

el error es:

[DCC Error] Unit2.pas(96): E2003 Undeclared identifier: 'ErrorMsg'
[DCC Warning] Unit2.pas(96): W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
[DCC Fatal Error] PROY.dpr(6): F2063 Could not compile used unit 'Unit2.pas'