Source position: kgraphics.pas line 822
function VerticalShapePosition(
AAlignment: TKVAlign;
const ABoundary: TRect;
const AShapeSize: TPoint
):Integer;