Schutzverletzung beim Beenden

[Semmel]

Wenn ich das Programm (sehr viele Fromulare ) mit Close beende bekomme immer eine Schutzverletzung.
Gebe ich in CloseQuery selber alle Formular mit Free frei

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject;  var CanClose: Boolean);
begin
  Form2.Free;
  Form3.Free;
  ....
  // nicht Form1
end;

bekomme ich keine Schutzverletzung.
Meine Frage, wie macht Ihr das.
Harald