mostrar imagen pero no imprimirla

[yossi]

hola necesito ayuda urgente con este tema tengo que entregar el programa esta semana

este es el codigo que utilizo

procedure Treporte.QRBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
vecesimpreso:=vecesimpreso+1;
end;

procedure Treporte.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if VecesImpreso > 0 then
begin
qrImage1.Picture := Nil;
qrImage2.Picture := Nil;
end;
end;

funciona bien la primera vez, lo muestra pero no lo imprime pero la segunda no muestra las imagenes

auxilio