procedure T_c_form_desktop.FormClose(Sender: TObject; var Action: TCloseAction);
var
i : Word;
begin
inherited;
if MDIChildCount > 0 then
for i := 0 to MDIChildCount - 1 do MDIChildren[i].Close;
end;
var
i : Word;
begin
inherited;
if MDIChildCount > 0 then
for i := 0 to MDIChildCount - 1 do MDIChildren[i].Close;
end;