Блин задали домашнюю на два месяца (сижу делаю… программирование в делфи……

var Form1: TForm1; implementationuses unit2; // тут напиши юнит второй формы которую нужно создать{$R*.dfm} … //потом например привяжи к надати кнопки создание нужной формы procedure TForm1.Button1Click (Sender: TObject); begin if not assigned (Form2) then // проверяем существует ли форма Form2: =TForm2.Create (Self); // если нет то создаем ее Form2.Show; //показываем форму Form1.Hide; // скрываем форму на которой была нажата кнопкаend;