[Alegun]

Можно сделать и так:

Код:

Form2 := TForm2.Create(Self);

Работает следующим образом:

кидаем на первую форму баттон и вот это:

Код:

...

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Button1Click(Sender: TObject);

procedure fc1;

...

var
  Form1: TForm1;
   CnClose: boolean;
...

uses Unit2;
...

procedure TForm1.fc1;
begin
Form2:= TForm2.Create(Self);
Form2.Show;
Form1.Visible:= false;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:= CnClose;
fc1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
fc1;
end;

а на вторую также кнопарь и такое:

Код:

...
    procedure Button1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure fc2;

...
uses Unit1;
...

procedure TForm2.Button1Click(Sender: TObject);
begin
fc2;
end;

procedure TForm2.fc2;
begin
CnClose:= true;
form1.Close;
end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
fc2;
end;

не забыть только у обеих форм FormCloseQuery подключить.