Пересчитать вправо и вниз
procedure RightBottomResize(aCoefX, aCoefY: double; flYDirection: boolean = true);