Seltsames Verhalten vom Forms

[5etH]

Hallo Zusammen,

Ich habe einen Merkwürdigen Fehler beim Erzeugen von Forms. Folgender Fehler Tritt auf: ich arbeite mit Mehreren Dynamisch Erzeugten Forms. Ich kann in den Optionen Festhalten Welche Forms ich beim Starten des Programms schon erzeugen möchte. z.B. form 1 2 und 3, wenn ich diese auch in der Reinfolge erzeuge, kann ich form 2 und 3 ohne Probleme schließen, schließe ich aber form1 zuerst so schließt es 2 und 3 gleich mit.

Hier die entsprechenden Code Zeilen:




ich habe leider keine Ahnung woher das kommt und hoffe das ihr mir helfen könnt

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
if first then // Variable zur Abfrage ob Programm Gestartet wurde um 2. aufruf zu vermeiden
begin
first := false;
if memo2.Lines[6] = '-1' then // Memo2 Liest eine OPT.INI ein
begin
  button3.click;
end;
if memo2.Lines[7] = '-1' then
begin
  button4.click;
end;
if memo2.Lines[8] = '-1' then
begin
  button9.click;
end;
if memo2.Lines[9] = '-1' then
begin
  button6.click;
end;
if memo2.Lines[10] = '-1' then
begin
  button5.click;
end;
if memo2.Lines[11] = '-1' then
begin
  if button1.visible then
  begin
    button1.click;
  end;
  button11.click;
end;
if memo2.Lines[13] = '-1' then
begin
Chat1Click(self);
end;
end;
end;

//Das liegt hinter Den Buttons speziefisch für die Forms
procedure TForm1.Button3Click(Sender: TObject);
begin
  if not s3 then
  begin
  s3 := true;
  Application.CreateForm(TForm3, Form3);
  form3.show;
  end;
end;

//Und auf jedem Fenster onClose
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.s3 := false;
self.destroy;
end;

Wenn ich die Forms aber Einzeln per Klick öffne tritt dieser Fehler nicht auf

In vollster Hoffnunf
Manuel