TIBQuery: Evento OnBeforeOpen

[Angel.Matilla]

Estoy trabajando con BCB 6.

Para simplificar código quería hacer que dos TIBQuery que tengo llamaran a los mismos eventos OnAfterOpen y OnBeforeOpen.
Con el primero de ellos no tengo problema y con el evento definido así me funcionan los dos:

void __fastcall TForm1::AfterOpen(TDataSet *DataSet)
{
     DataSet->Last();
     DataSet->First();
}
//---------------------------------------------------------------------------

pero con el otro el código que he puesto no va:

void __fastcall TForm1::BeforeOpen(TDataSet *DataSet)
{
     DataSet->Prepare();
}
//---------------------------------------------------------------------------

Ya he comprobado que el método Prepare() es propio del query y no del DataSet. ¿Cómo tendría que definir un query genérico para que ese evento me sirviera para ambos TIBQuery? No sé si me he logardo explicar.

He probado a definir ese query con

TIBQuery *qQuery = new TIBQuery(this);

y tratar de heredar las propiedades del DataSet, pero no acabo de dar con la manera.