Source position: fpdatadict.pp line 376
type TOnApplyDataDictEvent = procedure(
Sender: TObject;
Source: TDDFieldDef;
Dest: TField;
var Allow: Boolean
) of object;