Source position: xforms.pp line 2334
type TFL_INPUTVALIDATOR = procedure(
p1: PFL_OBJECT;
p2: pchar;
p3: pchar;
p4: LongInt
);