Feststellen ob ein bestimmtes MDI Child geöffnet ist?

[PeterKiers]

Hallo zusammen!

ich bin absoluter Delphi Anfänger und hab nun ein kleines Problem das ich einfach nicht lösen kann. Hab auch hier im Forum schon gesucht jedoch nichts gefunden.

Wie kann man Feststellen ob ein bestimmtes MDICHild gestartet ist

Code:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  inc(i);
  if i > 6 then i := 1;
  case i of
    1: begin
        if MDIChildren[i].ClassName = 'TForm2' then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS4SV001 ...');
        end;
      end;
    2: begin
          if MDIChildren[i].ClassName = 'TForm3' then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS4SV005 ...');

        end;
      end;
    3: begin
        if MDIChildren[i].ClassName = 'TForm4' then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS4SV006 ...');

        end;
      end;
    4: begin
        if MDIChildren[i].ClassName = 'TForm5' then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS4SV007 ...');

        end;
      end;
    5: begin
        if MDIChildren[i].ClassName = 'TForm6' then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS01DUO1 ...');

        end;
      end;
    6: begin
        if MDIChildren[i].ClassName = 'TForm7' then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS02DUO1 ...');

        end;
      end;
  end;
end;

Im voraus schon mal vielen Dank.

Gruss

Peter