CheckRectClipping

function CheckRectClipping(

  ClipRect: TRect;

  var Rect: Trect

):Boolean;

function CheckRectClipping(

  ClipRect: TRect;

  var x1: Integer;

  var y1: Integer;

  var x2: Integer;

  var y2: Integer

):Boolean;