Programm läßt sich nicht beenden

[MaPaPiap]

Hallo nochmal zusammen,
leider zu früh gefreut!
Nachdem ich folgenden Code ergänzt habe

Delphi-Quellcode:

procedure TQRPreviewForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   QRPreview1.Free;  
end;

läßt sich mein Programm zwar beenden, aber ich kann die Vorschau nur einmal aufrufen.Beim zweiten Aufruf erfolgt eine EAccessViolation in der unten markierten Zeile. Wenn ich diese Zeile entferne, ist auch "QRPreview1.Free" nicht mehr notwendig (ich sehe zwar meinen Report nicht mehr aber ich kann Vorschau beleibig oft öffnen und das Programm beenden) ?=> Es schein noch irgendetwas activ zu sein, was das Beenden verhindert, wenn ich es aber mit Free komplett entferne wird es beim anzeigen nicht neu erzeugt.
Was ist das, und wie heißt der Busfahrer

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;

Ich komme nicht weiter. Ich vermute da fehlen mir einige Theoretische Grundlagen.