//FECHAR TODAS AS JANELAS MDI

void __fastcall TForm1::Button1Click(TObject *Sender)

{

for(int i = MDIChildCount-1; i >= 0; i--) MDIChildren[i]->Close();

}