Mehrmaliger Aufruf eines QRPreview

[Hansa]

Das von mir vorher geschriebene war etwas entstellt. Zumindest geht damit nichts mit C+P und nur Bezeichner ändern.

Das hier :

Delphi-Quellcode:

procedure TForm1.Lade (Nr : integer);
var bstr : string;
begin
  try 
    bstr := (Liste.Items [Nr] as Tbstr).bstr;
    qrPreview.Show;
    qr1.Prepare;
    qr1.QRPrinter.Load(bstr);
    qr1.QRPrinter.Preview;
  finally
    QRPrinter.Free;
  end;

lief 5000 mal bis zum Abbruch.

@Obama : drücke mal so ca. 5mal auf den Button.