Luk alle?

Med hvilken kode kan alle åbne mdichilds lukkes? Har brugt denne kode til lukning af enkelt aktivt vindue TMDI(ActiveMDIChild).Destroy;...

Kode 

var
 i:integer;
begin
for i := Form1.MDIChildCount-1 downto 0 do
 TMDI(Form1.MDIChildren[i]).Close;
end;