Увеличение формы

[Djuise]

Доброго времени суток. Подскажите, пожалуйста, как можно увеличить форму и все имеющиеся на ней (лейблы, эдит и тп) приблизить. То есть, как в браузере мы приближаем, чтобы лучше увидеть или нажать, так и тут, можно ли как-то все увиличить/приблизить плюс двигаться по всему приближенному? Есть конечно вариант отслеживать значения двух прикосновений (типа приблизить или отдалить),высчитывать и сами объекты в свойствах height и weight увеличить, но это как по мне не очень способ, да и не знаю как отследить. Может кто, что подскажет? За ранее благодарен.

[Brovin Yaroslav]

Добрый вечер,

1. Я бы расположил в корень формы TScaledLayout и менял его масштаб. 
2. Все компоненты формы разместил, естественно, в TScaledLayout.
3. Если нужна прокрутка, то просто менял позицию TScaledLayout.

[Dozent]

Что значит? Более подробно плз)

1. Если нужна прокрутка, то просто менял позицию TScaledLayout.

[Dozent]

procedure TForm1.ScaledLayout1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
var
  Value: single;
begin
  if WheelDelta > 0 then
    Value := 0.1
  else
    Value := -0.1;

  ScaledLayout1.Scale.X := ScaledLayout1.Scale.X + Value;
  ScaledLayout1.Scale.Y := ScaledLayout1.Scale.X;
  Label1.Text := VarToStr(ScaledLayout1.Scale.X);
  Label2.Text := VarToStr(ScaledLayout1.Scale.Y);
  //Panel1.Align := TAlignLayout.Client;
end;

Разобрался с изменением размера. Теперь проблема в другом. Уменьшается область экрана и если мышка не в этой области, то панель перестаёт реагировать