1:
2:
3:
4:
5:
6:

Var
  NewForm: tForm2;  // Hier das ChildForm angeben
Begin
  NewForm := tForm2.Create (Application.MainForm);
  {...}
End;                    

1:
2:
3:
4:
5:
6:

[...]
VAR
  frm : tMyForm;
begin
  frm := tMyForm.Create(self);
[...]                    

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

procedure TfrmMain.CreateWindowMenu;
  VAR
    NewMenu : tMenuItem;
    i : Integer;
begin
  // Zuerst alte (fenster) einträge löschen
  FOR i := Fenster1.Count - 1 DOWNTO 0 DO
    IF Fenster1.Items[i].Tag = -99 THEN
      Fenster1.Delete(i);
  // Dann neue einfügen
  FOR i := 0 TO MDIChildCount - 1 DO BEGIN
    NewMenu := NewItem(IntToStr(i + 1) + '. ' + Self.MDIChildren[i].Caption, 0, FALSE, TRUE, MDIClick, 0, 'MDIChild_' + IntToStr(i));
    NewMenu.Tag := -99;
    IF (ActiveMDIChild = MDIChildren[i]) THEN
      NewMenu.Checked := TRUE;
    Fenster1.Add(NewMenu);
  END; // Mit allen MDI Childs
end; // CreateWindowMenu                    

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

procedure TfrmMain.MDIClick(Sender: TObject);
  VAR
    pPos : Integer;
    aMenu : tMenuItem;
    Val : Integer;
begin
  IF NOT (Sender IS tMenuItem) THEN
    Exit;
  aMenu := tMenuItem(Sender);
  pPos := Pos('.', aMenu.Caption);
  Val := StrToInt(Copy(aMenu.Caption, 1, pPos - 1));
  MDIChildren[Val - 1].Show;
end; // MDI Click                    

1:
2:

private
  procedure MDIClick(Sender: TObject);                    

1:

MDIChildren[X].Show