Source position: video.inc line 4
type VIPositionCallback = procedure(
posX: cuint32;
posY: cuint32
);