Überprüfen, ob ein Formular offen ist

[Rifman]

Hallo,

auf MainForm habe ich einen Button und eine Liste erstellt. Wenn auf den Button gedrückt wird, werden je nachdem wieviele einträge in der List sind, auch soviele Forms mit TStringGrid aufgehen.
Wie kann ich das jetzt so machen, dass es vorher überprüft wird ob es Forms schon offen sind, die der Anzahl der Einträge entspricht, wenn ja dann die vorhandenen TStringGrid's löschen, wenn nein dann neu erstellen.
Bisher habe ich das so gemacht:

Delphi-Quellcode:

var
FormArray :array of TForm1;
...
procedure TMainForm.Button1Click(Sender: TObject);
begin
For i := 0 To MBListBox.items.Count - 1 Do
          Begin
            FormArray[i] := TForm1.Create(self);
            FormArray[i].show;
          End;
          
End;

Danke.

[edit=SirThornberry]Titel korrigiert - Mfg, SirThornberry[/edit]