Source position: o32tcflx.pas line 49
type TTCFEUserValidationEvent = procedure(
Sender: TObject;
Value: string;
var ValidEntry: Boolean
) of object;