Egy form tartalmát lekicsinyíthetjük úgy is, hogy nem kell átméretezni minden rajta található komponenst. 
procedure TForm1.Button1Click(Sender: TObject);
begin
 scaleby(50,100);
end;

Megjegyzés:
A dolog szépséghibája csak az, hogy magát a formot nem méretezi kicsire.