Source position: form.pp line 77
type TCharCheck = function(
_para1: LongInt;
_para2: Pointer
):Bool;