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