Source position: kraft.pas line 3983
type TKraftOnPushShapeContactHook = procedure(
const aWithShape: TKraftShape
) of object;