Код:
procedure TForm1.N3Click(Sender: TObject);
begin
//Form2.Create; // эту и нижнюю строку нужно раскомментировать,
// если форма 2 у вас исключена из списка
// автоматически создаваемых форм (в настройках
// проекта)
Form2.ShowModal;
//Form2.Free;
end; |