Fechar Janelas MDI

Caro amigos,

Criei essa procedure para fechar todas as janelas MDI, mas está dando access Violation quando vai fechar a segunda janela.

Alguem pode ajudar?

Obrigado..

procedure FechaJanelasMDI;
var
X : Byte;
begin
if MDIChildCount > 0 then
for X := 0 to Pred(MDIChildCount) do
MDIChildren[X].Close;
end;