Source position: lclproc.pas line 160
procedure MoveRectToFit(
var ARect: TRect;
const MaxRect: TRect
);