Source position: rlmetavcl.pas line 87
procedure CanvasSetClipRect(
aCanvas: TCanvas;
const aRect: TRect
);