[Resolvido] Fecha Janelas MDI Abertas

[orc 0]

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