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