Quickreport Preview per Code schließen

[norwegen60]

Bei der Schleife ist mir alter Code rein gerutscht.
Ich hatte es ja schon mal so

Delphi-Quellcode:

 for i := Screen.CustomFormCount - 1 downto 0 do
      if (Screen.CustomForms[I] is TQRStandardPreview) then
        TQRStandardPreview(Screen.CustomForms[I]).Close;