Source position: xkb.pp line 1929
function XkbAllocGeomShapes(
geom: PXkbGeometryPtr;
nShapes: SmallInt
):TStatus;