1.界面

2.代码 

form1  代码：

implementation

uses   unit2; {$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

var   f2 :Tform2;

begin  

  f2 := Tform2.Create(self);  

  f2.flag :='1';  

  if f2.ShowModal = mrOk then  

  begin    

    Application.CreateForm(Tform,form2);    

    form2.ShowModal;

   end;

end;

procedure TForm1.btn2Click(Sender: TObject);

var   f2 :Tform2;

begin

  f2 := Tform2.Create(self);

  f2.flag :='2';

  if f2.ShowModal = mrOk then

  begin

    Application.CreateForm(Tform,form2);

    form2.ShowModal;

  end;

end;

end.

 form2 代码：

  public

    flag : String;//判断打开的是哪个窗体

    { Public declarations }

  end;

var   Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);

begin

 if flag = '1' then

  caption := '打开了第一个窗体'

  else if flag='2' then

  caption := '打开了第二个窗体'

end;

end.