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