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