Source position: xforms.pp line 562
type THandlePtr = procedure(
p1: PFL_OBJECT;
p2: LongInt;
p3: TFL_Coord;
p4: TFL_Coord;
p5: LongInt;
p6: pointer
);