Ручное масштабирование формы

Оформил: DeeCo

{ 
  Der erste Parameter von ScaleBy ist der Multiplikator, der zweite 
  der Divisor. Folgendes Beispiel skaliert die Form auf 150% 

  The first parameter of ScaleBy is the multiplier, the second 
  the divisor. The example scale the form to 150% 
}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ScaleBy(150, 100);
 end;