Пропорционально пересчитать координаты элементов схемы
procedure ProportionalResize(aCenterX, aCenterY, aCoefX, aCoefY: double);