Umschalten zwischen Formularen

[Master_BB]

Das wechseln von Unit1 zu Unit2 läuft von Unit2 zu 1 kommt dann der fehler

Unit1 wo was drin is

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 if Form7.pMain.ControlCount = 1 then
    Form7.pMain.Controls[0].Parent := TWinControl (Form7.pMain.Controls[0].Owner);
  Form2.pMain.Parent := pMain;
  Form7.Caption := Form1.Caption;
end;

Unit2 wo was drin is

Delphi-Quellcode:

procedure TForm2.BitBtn4Click(Sender: TObject);
begin
  if Form7.pMain.ControlCount = 1 then
    Form7.pMain.Controls[0].Parent := TWinControl (Form7.pMain.Controls[0].Owner);
  Form1.pMain.Parent := pMain;
  Form7.Caption := Form1.Caption;
  closefile(pf);
end;

Leer Unit7

Delphi-Quellcode:

procedure TForm7.FormShow(Sender: TObject);
begin
  if Form7.pMain.ControlCount = 1 then
    Form7.pMain.Controls[0].Parent := TWinControl (Form7.pMain.Controls[0].Owner);
  Form1.pMain.Parent := pMain;
  Form7.Caption := Form1.Caption;
end;

Fehler wird angezeigt hier

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm7, Form7);
  Application.Run;
end.                              //--HIER DER FEHLER STackÜberlauf

[edit=Daniel B]Center-Tags in Delphi-Tags umgewandelt. Wer macht denn sowas? MfG Daniel B.[/edit]