Pessoal, Segue uma rotina que eu uso para fechar todas as janelas abertas em meu sistema:
procedure TFrmPrinc.FecharTodas1Click(Sender: TObject);
var
Count : word;
begin
for Count := 0 to ComponentCount - 1 do
if Components[Count] is TForm then
TForm(Components[Count]).Close;
end;
[As partes desta mensagem que não continham texto foram removidas]
