Well, I have tried something like that.
First, tried to upcast, but it didn´t work
void __fastcall TDm::ADOCnnClientesExecuteComplete(TADOConnection *Connection,
int RecordsAffected, const Error *Error, TEventStatus &EventStatus,
const _Command *Command, const _Recordset...