Source position: gtkproc.pp line 470
function SubtractScoll(
AWidget: PGtkWidget;
APosition: TPoint
):TPoint;