Programm läßt sich nicht beenden

[MaPaPiap]

Hallo Hilfe,
wenn ich aus meinem Programm mit dem Code:

Delphi-Quellcode:

procedure TForm1.DruckvorschauClick(Sender: TObject);
begin
  with TQRPrinter.Create do
  begin
    Printerindex := -1;
    QRForm1.QuickRep.Page.PaperSize := PaperSize;
    Free;
  end;
  QRForm1.QuickRep.OnPreview := ShowPreview;
  QRForm1.QuickRep.Preview;   
end;

//***************************************************************************
procedure TForm1.Showpreview(Sender: TObject);
begin
  QRPreviewForm.QRPreview1.QRPrinter := TQRPrinter(Sender);
  QRPreviewForm.Show;
end;

eine Vorschau starte und wieder beende z.B. mit "close", läßt sich mein Programm nicht mehr beenden.
Es funktioniert noch alles, aber weder auf "close" noch auf den Systembutton "X" erfolgt eine Reaktion. Auch "onClose" wird nicht aufgerufen.
Hat jemand eine Idee?