Mehrmaliger Aufruf eines QRPreview

[Hansa]

Delphi-Quellcode:

procedure TForm1.Lade (Nr : integer);
var bstr : string;
begin
  Try
** *BStr :=  ?? Hier aus Datei
** *qrPreview.Show;
** *qr1.Prepare;    Qr1= tquickrep
** *qr1.QRPrinter.Load(bstr);
** *qr1.QRPrinter.Preview;
**finally
** *QRPrinter.Free;  // form-variable
**end;
end;