Close all MDI child forms at once

Problem/Question/Abstract:

How to close all MDI child forms at once

Answer:

var
  cik: integer;

for cik := MDIChildCount - 1 downto 0 do
begin
  MDIChildren[cik].Close;
end;