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

procedure TFormMain.MenuItem_ChildForm10Click(Sender: TObject);
var i: Integer;
var blnFormOpen: Boolean;
begin
  blnFormOpen := False;
  for i := 0 to MDIChildCount-1 do
    if MDIChildren[i].Name = 'ChildForm10' then
      blnFormOpen := True;

  if blnFormOpen = False then
    TFormPortobuch.Create(Application)
  else
    { hier soll jetzt das bereits geöffnete ChildForm10 in den
    Vordergrund; leider weiß ich nicht wie !!?? }
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TFormMain.MenuItem_ChildForm10Click(Sender: TObject);
var i: Integer;
begin
  for i := 0 to MDIChildCount-1 do
    if MDIChildren[i].Name = 'ChildForm10' then
    begin
      TForm(MDIChildren[i]).BringToFront; // Existierende Form anzeigen
      Exit; // Beendet die Procedure, wenn gefunden
    end;
  // Bis hierhin gekommen, also ist die From noch nicht da.
  TFormPortobuch.Create(Application);
end;