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