以前、Delphi5 で作成したシステムをDelphi10Seattleにマイグレーションして使用しています。
レポートは、QuickReportを使用しているのですが、バーコードの項目を追加したく、
「Barcode Image Component for Quick Report Version 0.9」を使用して作表しようとしますが、思う様に印字されません。
現象は、以下の通りです。
Ａ４の８行×3列でシールを作成するプログラムが有るが、明細行に追加したバーコードが、設計時に追加したバーコードが全て同じで作成される。下記のコードで明細行のDetailBeforePrintイベントに値をセットするが、全く変わりません。
下記と同じコードで1件ずつ作成する別の単票様式の帳票のフッターにバーコードを置き、フッターのイベントに記述すると問題なく作成されます。
何が原因でしょうか？
宜しくお願い致します。

(コード例)
//バーコードコンポーネントへの値セット
QRBarImage1.BarEnabled := False;
QRBarImage1.Picture := nil;
QRBarImage1.BarType := cbarNW7;
QRBarImage1.scale := 1;
QRBarImage1.SymbolDisp := False;
QRBarImage1.Transparent := False;
QRBarImage1.Match := False;
QRBarImage1.BarColor := clBlack;
QRBarImage1.BackColor := clWhite;
QRBarImage1.BarHeight := 25;
QRBarImage1.BarLeft := 0;
QRBarImage1.BarTop := 0;
QRBarImage1.BarSpaceUp := 10;
QRBarImage1.BarSpaceDown := 0;
QRBarImage1.BarSpaceLeft := 10;
QRBarImage1.BarSpaceRight := 10;

QRBarImage1.Code := DmlB0100PrnLabel.QueryRptLabel.FieldByName('DISP_BANGO').Value;　//データベースから値をセット
QRBarImage1.BarEnabled := true;
QRBarImage1.Visible := true;
QRBarImage1.Repaint;