TColumnsListItemMediator

TListItemMediator

OnBeforeSetupField

TObject