procedure test
begin
  A.Hide;
  B.ShowModal;
  //B.fShow(Self);
  A.Show;
end;    若要知道誰開啟，不如傳個參數給B!!
B建立個程序
procedure TForm2.fShow(Form:TForm);
begin
  ShowModal;
  fForm := Form;
end;