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