Source position: clipping.pp line 38
function ClipLine(
ClipRect: TRect;
var x1: Integer;
var y1: Integer;
var x2: Integer;
var y2: Integer
):Boolean;