procedure TForm1.Button1Click(Sender: TObject); var f: TForm2; begin f := TForm2.Create(self); f.Show; end;
--- var Form1: TForm1; form2: TForm2; implementation {$R *.dfm} ----