Scale all controls using defined ratio

procedure Scale(Ratio: integer);