Delphi - Respuesto

Ya lo hice, el problema es que tengo en un folio 33 etiquetas y he diseñado un quickreport con 33 canvas y se ve que da errores por falta de memoria, la página de etiquetas tiene 3 etiquetas por fila pero para asignarle una imagen cada vez debería almacenarlas en una tabla y no se como hacerlo. ¿ Tu sabes ?

No me extraña que te quedes sinmemoria.Prueba esto: En un quickReport añande una Detail Band, fija las columnas que quieras para ajustar el tamaño de las etiquetas, en la DetailBand añade uns TQrImage y en el evento OnNeedNada del Quick>Report escribe esto
(antes tienes que tener una imagen creada del codigo de barras por ejemplo en formato jpg)
procedure TFormEtiquetas.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
var
NumEtiq:Integer;
begin
NumEtiq:=strtoint(NumEtiquetas);
if Imagenes>NumEtiq then
begin
moredata:=False;
end
else
begin
moredata:=True;
QrImage1.Picture.LoadFromFile(Imagen);
inc(Imagenes);
end;
end;
Suerte