Как вернуть форму delphi TForm к первоначальному виду после использования ScaleBy()

Я хочу, чтобы форма могла быть изменена по размеру пользователем с пропорциональным изменением размеров элементов управления. ScaleBy( N,M ) работает нормально, но при повторении возникают кумулятивные ошибки округления. Для борьбы с этим я просто хочу предварять ScaleBy() вызовом для воссоздания формы в ее стандартном виде и размере, а затем вызывать ScaleBy с различными значениями. Я знаю, что могу сделать это, разместив форму на панели (и удаляя/восстанавливая ее), но есть ли вызов, который сбросит форму после использования ScaleBy()?

Edit - Я использую Delphi XE2 и был бы также заинтересован в успехе любого компонента или другого кода (платного или бесплатного) для аккуратного масштабирования формы - мои собственные загрузки не дали рабочего решения.