Fechar todos os forms

procedure TForm1.FecharForms;
var
  i: Integer;
begin
  for i := 0 to Application.ComponentCount - 1 do
  begin
    // -> Verifia se é um Form
    if Application.Components[i].InheritsFrom(TForm) then
      // -> Verifica se não é o principal
      if (TForm(Application.Components[i]).Name <> 'NomeDoSeuForm') then
        TForm(Application.Components[i]).Close;
  end;
end;