Yo te enviaría el destructor de alguna mia... pero es que ya busqué y todos tienen inherited nadamas..
Ejemplos abundan en el código fuente de la VCL, por ejemplo en la unidad
db.pas: TCheckConstraints, TParams
dbGrids.pas: TDBGridColumns
y muchos mas.
hasta luego.
