In QRStringsband zur Laufzeit Labels erzeugen

[messie]

Hallo,

das hier funzt nich':

Delphi-Quellcode:

procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
var
  counter : integer;
  label99 : TQRLabel;
begin
  if counter < 200 then
  begin
    MoreData := true;
    inc(counter);
    label99 := TQRLabel.Create(SB1);
    label99.Left := 350;
    label99.Top := 8;
    SB1.Enabled := true;
    SB1.Items.Clear;
    SB1.Items.Add('');
    QRLabel2.Caption := IntToStr(counter);
    label99.Caption := IntToStr(counter - 1);
  end
  else
  begin
    if SB1.Height < 0 then
      sleep(200);
    MoreData := false;
  end;
end;

Ich bekomme das Label nicht zu sehen. Wenn ich versuche, es via parent an das Band zu kleben, tritt eine Exception auf. Ich kann hier nur die zur Entwurfszeit erstellten Labels anzeigen.

Liegt es an mir oder an QR351?

Grüße, Messie