-------Form1-----------------
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  Form1.Hide;
  Form2.Show;
End;
-------Form2-----------------
Procedure TForm2.FormClose(Sender:TObject);
Begin
  //移到這裏
  Form2.Hide; // 這行可以省略
  Form1.Show;
End;
// 在某個按鈕的OnCLick事件中
Procedure TForm2.Button1Click(Sender:TObject);
Begin
  Close; // 改成Close;就好。
End;    以上為因應你的寫法所作的改變，以下示範一般的作法
-------Form1-----------------
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  // 若要動建立，則可加上如下片段(專案檔中要把TForm2移到Availabled Forms)
  If Not Assigned(Form2) Then 
    Form2 := TForm2.Create(Application);
  Form2.ShowModal;
  或是
  If Form2.ShowModal = mrOK Then Begin
    // 傳回OK 
  End;
End;
-------Form2-----------------
// 在某個按鈕的OnCLick事件中
// Button1.ModalResult 設為mrOK、mrCancel....等值,Form2 Close後自動會傳回
Procedure TForm2.Button1Click(Sender:TObject);
Begin
  Close; // 
End;