[[Al González]]

Quizá el problema sea que la imagen no esté debidamente guardada en el campo o que no se esté accediendo al campo o al registro correcto.

Haz una prueba usando un objeto TppImage escribiendo un código como el siguiente en su evento OnPrint.

Código Delphi [-]
Var
  Flujo :TStream;
  Imagen :TJPEGImage;
begin
  ...

  // DataSet es el conjunto de datos (tabla / consulta) que contiene el registro a imprimir
  Flujo := DataSet.CreateBlobStream (DataSet.FieldByName ('CodigoBarras'), bmRead);

  Try
    Imagen := TJPEGImage.Create;

    Try
      Imagen.LoadFromStream (Flujo);
      imCodigoBarras.Picture.Graphic := Imagen;  // imCodigoBarras es el objeto TppImage
    Finally
      Imagen.Free;
    End;
  Finally
    Flujo.Free;
  End;

(Con las debidas unidades en las cláusulas Uses).

Es como lo hago en uno de mis reportes, sin que presente ningún problema.

Saludos.