[Sudamericano]

procedure TFrmMain.ActCloseAllExecute(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to MDIChildCount - 1 do
    MDIChildren [i].Close;
end;

con esto busca ventanas abiertas y las cierra