El codigo es bastante sencillo.
Unit1:
Código Delphi
[-]
uses unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
end;
Unit2:
Código Delphi
[-]
uses unit3;
procedure TForm2.Button1Click(Sender: TObject);
begin
Form3.ShowModal; end;
procedure TForm2.FormActivate(Sender: TObject);
begin
Form3.ShowModal; end;
Unit3:
Código Delphi
[-]
uses unit2;
procedure TForm3.Button1Click(Sender: TObject);
begin
form2.Close;
form3.Close;
end;