Source position: tiBaseMediator.pas line 213
type TtiOnBeforeSetupField = procedure(
AObject: TtiObject;
const AFieldName: string;
var AValue: string
) of object;