Масштабирование формы при изменение разрешения экрана

[Gudzik11]

Здравствуйте ! Писал программу на мониторе с расширением 1280 x 1024 а на другом мониторе с меньшим расширением программа вылазит за рамки экрана.
Подскажите,пожалуйста,как сделать,чтоб при изменении разрешения масштабировал ась моя форма со всем содержимым?

[Lafeza]

const
  ScreenWidth: Integer = 826;
  ScreenHeight: Integer = 476;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
 var
  x, y: LongInt;
 begin
form1.Align:=alclient;
scaled := true;
  x := getSystemMetrics(SM_CXSCREEN);
  y := getSystemMetrics(SM_CYSCREEN);
  if (x <> ScreenHeight) or (y <> ScreenWidth) then
  begin
    form1.height := form1.height * x div ScreenWidth;
    form1.width := form1.width * y div ScreenHeight;
      end;
 if x <> ScreenWidth then
    scaleBy(x, ScreenWidth);
   end;end

[Black_Shem]

Зависит от того как на форме находится).
Если объекты привязаны к координатам то придется вручную их масштабировать).
Поэтому при проектировании формы объекты надо на панельках располагать, объединять в рамки группу. и т.д и т.п.