coder Сории но я уже Дошел сам спасибо вам за Height, Width я их использовал)) uses Unit1, Unit2; {$R *.dfm} procedure TForm3.Button1Click(Sender: TObject); begin form2.Show; form2.Height:=800; form2.WidTh:=600; end; procedure TForm3.Button2Click(Sender: TObject); begin form2.Show; form2.Height:=1024; form2.WidTh:=768; end; procedure TForm3.Button3Click(Sender: TObject); begin form2.Show; form2.Height:=1280; form2.WidTh:=1024; end; end. Все работает))