Source position: clipping.pp line 28
procedure CheckLineClipping(
ClipRect: TRect;
var x1: Integer;
var y1: Integer;
var x2: Integer;
var y2: Integer
);