Beim Beenden alle MDIChilds schließen

[Blechwolf]

Salut,
ich habe da mal folgendes Problem:
Wenn ich meine Application zu machen will, dann sollen alle MDI-Child Fenster geschloßen werden, aber nur, wenn sie alle gespeichert sind.
Ansonsten soll eine Abfrage kommen, daß die Daten nicht gespeichert sind, und ob der User fortsetzen will.
Ich habe das mal so gemacht:

Das ist der Aufruf aus der Main-Form

Delphi-Quellcode:

procedure TFrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
   i : integer;
begin
   for i := MDIChildCount-1 downto 0 do
     self.MDIChildren[i].Close();

  if self.MDIChildCount = 0 then
     CanClose := true
  else
     CanClose := false;
end;

procedure TFrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
   Application.Terminate();
end;

und so sieht das ganze in der Child-Form aus:

Delphi-Quellcode:

procedure TFrmSeries.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
   if not SaveState then
      if MessageDlg(Self.Caption+' - Data will be lost.'+#10+'Continue ?',
                            mtConfirmation,
                    [mbYes,mbNo],0) = mrYes then
       CanClose := true
    else
       CanClose := false
  else
     CanClose := true;
end;

procedure TFrmSeries.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  TCGraph.FreeAllSeries();
  TCGraph.Free();
   Action := caFree;
end;

Since so well.
Was jetzt passiert ist das folgende:
Wenn ich die Child-Forms von Hand schließe, klappt alles wunderbar. Es kommt die entsprechende Abfrage, und es passiert auch das was soll, wenn ich auf Ja oder Nein klicke.
Wenn ich jetzt aber mein MainForm schließen will, dann fragt er mich die Fenster in der Reihenfolge von hinten nach Vorne ab (wie in der Schleife angegeben) und wenn ich angebe er soll das ganze löschen, dann macht der die Fenster nicht zu.
Nachdem er vorne angekommen ist, fragt er mich das ganze nochmal von vorne nach hinten, wobei es hier funktioniert, wenn ich ihm sage er soll die Daten löschen.
Das Hauptprogramm wird dann aber trotzdem nicht geschlossen.
Hat irgendjemand die zündende Idee ?

Grüße

Blechwolf