Delphi - cargar imagenes en un dbimage

Probé cargarlas en un image común y no tengo problemas , pero no me las actualiza en tiempo de ejecución y los otro item pertenecen a una tabla y los muevo con una barra de navegación, pero coloqué el mismo código en un dbimage y me da errores por todos lados, ayuda por favor.
El código utilizado es el siguiente:
procedure TIng_Articulos.BuscarImagenes1Click(Sender: TObject);
var
Jpg: TJpegImage;
Stream: TMemoryStream;
FileExt: string;
GraphType: TGraphType;
begin
if datamodule1.dlgOpenPicture.Execute then begin
Jpg := nil;
Stream := nil;
try

Stream := TMemoryStream.Create;
FileExt := LowerCase(ExtractFileExt(datamodule1.dlgOpenPicture.FileName));
if (FileExt = '.bmp') or (FileExt = '.dib') then begin
GraphType := gtBitmap;
Stream.Write(GraphType, 1);
with Image1.Picture.Bitmap do begin
LoadFromFile(datamodule1.dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end else if (FileExt = '.ico') then begin
GraphType := gtIcon;
Stream.Write(GraphType, 1);
with Image1.Picture.Icon do begin
LoadFromFile(datamodule1.dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end else if (FileExt = '.emf') or (FileExt = '.wmf') then begin
GraphType := gtMetafile;
Stream.Write(GraphType, 1);
with Image1.Picture.Metafile do begin
LoadFromFile(datamodule1.dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end else if (FileExt = '.jpg') or (FileExt = '.jpeg')
or (FileExt = '.jpe') then begin
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(datamodule1.dlgOpenPicture.FileName);
Image1.Picture.Assign(Jpg);
GraphType := gtJpeg;
Stream.Write(GraphType, 1);
Jpg.SaveToStream(Stream);
end;
if (datamodule1.tbfotos.State <> dsEdit) and (datamodule1.tbfotos.State <> dsInsert) then
datamodule1.tbfotos.Edit;
Stream.Position := 0;
TBlobField(datamodule1.tbfotos.FieldByName('Foto')).LoadFromStream(Stream);
except
jpg.Free;
Stream.Free;
raise;
end;
jpg.Free;
Stream.Free;

end;
end;


procedure TIng_Articulos.FormCreate(Sender: TObject);
begin
if Not FileExists('id_foto_articulo.DB') then
datamodule1.Tbfotos.CreateTable;
datamodule1.Tbfotos.Open;

end;