Problema extrayendo campo imagen de una tabla access

[juanlaplata]

Bueno, espero no sea tarde, aqui como lo uso, es con "JPG", pero tal ves puedas adaptarlo a "BMP", si es que son de ese tipo.

Código Delphi [-]
// Referencias
//  Base = DataModule 
//  DatosImagenReportes 
//  -> Datos = Tabla , 
//  -> ImagenReportes = Campo Tipo Objeto OLE de Access

var BS:TBlobStream;
    Grafico :TGraphic;
begin
if(Base.DatosImagenReportes.IsNull)then  
    
    begin
    Image1.Picture.Graphic:=nil;
    end

else begin
     BS := TBlobStream(Base.Datos.CreateBlobStream(Base.DatosImagenReportes,bmRead));
     try
        grafico:= TJPEGImage.Create;
        try
           grafico.LoadFromStream(BS);
           Image1.Picture.Graphic := grafico;
        finally grafico.Free; end;
     finally BS.Free; end;
     end;
end;