void __fastcall TForm1::FormDestroy(TObject *Sender) { DataSet->FieldByName("Descripcion")->OnGetText = NULL; }