prüfen ob MDIChild Fenster exestiert?

[thetrue]

Delphi-Quellcode:

procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i:Integer;
begin
i:=main.MDIChildCount;
while i>0 do
  begin
    i := i-1;
    main.MDIChildren[i].Close; {da kommt ne Yes/No abfrage ob schließen}
  end;
if main.MDIChildCount > 0 then {liefert mehr als 0 auch wenn kein Child vorhanden }
  Action := caFree
else
  Action := caNone;
end;

nja das klappt irrgend wie nicht