すぐやり方忘れるのでメモ Unit1 //--------ここから------------ procedure TForm1.Button1Click(Sender: TObject); var Form2: TForm2;//uses節に"Unit2"を追加 begin //VisbleをFalseにしないと