Source position: clipping.pp line 22
procedure SortRect(
var rect: TRect
);procedure SortRect(
var left: Integer;
var top: Integer;
var right: Integer;
var bottom: Integer
);