procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.ScaleBy(60, 100);
//Retrecie les controles a 60 % de leur dimension
end;