1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  i: integer;
  Exists: Boolean;
begin
  Exists := False; //Exists gibt an, ob das Formular schon existiert
  for i := 0 to MainForm.MDIChildCount - 1 do //MainForm ist das Hauptformular
  begin
    if MainForm.MDIChildren[i] is TTestChild then //TTestChild ist ein MDIChild-Formular
    begin
      Exists := True;
      Break;
    end;
  end;

  if not Exists then
    //da das Formular noch nicht existiert kannst du es jetzt hier erstellen
end;					

1:

for i := 0 to MainForm.MDIChildCount - 1 do