Forms Delphi

Formun OnClose bölümüne aşağıdaki kodu yazınız.
if anaformf.MDIChildCount > 0 then
Begin
ShowMessage('Kapatılmamış Pencereler Var Lütfen Kapatınız !');
Abort;
end;
böylece Child formlar kapanmadan anaform kapatılamaz