Source position: fpobserver.pp line 162
type TOnBeforeSetupField = procedure(
AObject: TObject;
const AFieldName: string;
var AValue: string
) of object;