1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

// zentrale Procedure auf Hauptfomular als Schleife solange bis einer endgültig über btn_Ende geht
procedure TForm0.Formular_Oeffnen;
begin
  while nWelches_Formular > 0
  do begin
    if nWelches_Formular = 1
    then begin
      try
        Form1 := TForm1.create(Application);
        Form1.showmodal;
      finally
        Form1.free;
        Form1 := nil;
      end;
    end;
    if nWelches_Formular = 2
    then begin
      try
        Form2 := TForm2.create(Application);
        Form2.ShowModal;
      finally
        Form2.free;
        Form2 := nil;
      end;
    end;
  end;
end;

procedure TForm0.btn_Form1click(sender : Tobject);
begin
  nWelches_Formular := 1;
  Formular_Oeffnen;
end;

procedure TForm1.btn_zu_Form2click(sender : TObject);
begin
  nWelches_Formular := 2;
  close;  
end;

procedure TForm1.btn_Endeclick(sender : TObject);
begin
  nWelches_Formular := 0;
  close;  
end;					

1:
2:

form2.visible:=true;
form1.close;