Mehrere Formulare (immer dasselbe) schließen

[Der schöne Günther]

Unter Screen.Forms[] stecken alle VCL-Formulare die deine Anwendung erzeugt hat:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   formIndex: Integer;
   form: TForm;
begin
   for formIndex := 0 to Pred(Screen.FormCount) do
      begin
         form := Screen.Forms[formIndex];
         if (form is TFormEditQuelle) then
            form.Close();
      end;
end;