[juanlaplata]

no no, hasta ahora no me ha fallado...

asi es como se guarda.

Código Delphi [-]
Base.Datos.Edit;
// imagen para reportes  ******************************
if(self.Image1.Picture.Graphic <> nil)then
   begin
    BS := TBlobStream(Base.Empresa.CreateBlobStream(Base.DatosImagenReportes,bmWrite));
    self.Image1.Picture.Graphic.SaveToStream(BS);
    if(self.ImagenLogo.Text<>'')then Base.DatosImagenReportes.DisplayLabel:= self.ImagenLogo.Text;
    BS.Free;
   end
else Base.DatosImagenReportes.Clear;
Base.Datos.Post;

siempre hago un preview y sale en todas las paginas.