Bonjour,
Je crée dynamiquement par fonction dans un panel :
1/ un panel sur lequel je crée un bouton
2/ un TIBDataBase,TIBtransaction,TIBDataSet,TDataSource

Le result de la fonction étant un TDBGrid.

Pour quitter et libérer j'ai deux options :
a/ La sélection dans le result(tdbgrid)
b/ L'abandon par la bouton

Je libère chacun par if assigned(xxx) then FreeAndNil(xx);

Dans la cas a/ tout OK

Dans la cas b/ OK SAUF le panel sur lequel se trouve le bouton qui appelle la libération. (Violation d'accès).

Merci de vos avis