procedure TForm1.Button1Click(Sender: TObject); var MiWindow:TForm; begin MiWindow:=Form2; MiWindow.show; end;