alle Formulare bis auf Form1 schließen, aber wie?

[sniper_w]

So in etwa...

Delphi-Quellcode:

var
  i:Integer;
begin
  for i:=0 to Application.ComponentCount-1 do
  begin
    if Application.Components[i] is TForm then
    begin
      if Application.Components[i] <> Application.MainForm then
      begin
        TForm(Application.Components[i]).Close();
      end;
    end;
  end;
end;