MDI-Anwendung

[fredi]

ich möchte folgende Konstruktion: Hauptwindow-->MDIWindow-->Childwindow. Geht das?



ich habe folgendes gemacht:
Hauptformular ist schon aktiv nun,
erstelle ich aus einem Hauptformular heraus ein MDI Formular:

if not IsFormOpen('Form2') then
begin
Form2 := TForm2.Create(Self);
Form2.FormStyle := fsMDIForm;
Form2.Show;
end;

das geht ja noch ganz gut und sehe auch das MDIFormular.

Nun möchte ich vom neu erstellten MDIFormular aus mit einem Button beliebig viele ChildWindows erzeugen:

zB. so:
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
if Form2.Visible then
Form2.CreateMDIChild('Auftr_12345');
end;


procedure TForm2.CreateMDIChild(const Name: string);
var
Child: TForm3;
begin
Child := TForm3.Create(Application);
Child.Caption := Name;
end;

wenn ich das mache, bekomme ich folgende Fehlermeldung:
Exception der Klasse EInvalidOperation aufgetreten.
Meldung: Formular kann nicht erstellt werden, zur sind keine MDI-Formulare aktiv!

Warum kennt er das MDI-Formular nicht!
Hat jemand eine Idee?

fredi