Hola BPL.
Cambia las líneas:
Código:
DataModule.tblImagen.Open ;
DataModule.tblimagen.Edit ;
DataModule.tblimagen['Imagen2'] := imgBolsa.Picture ;
DataModule.tblimagen['Imagen3'] := imgBolsa.Picture ;
DataModule.tblimagen.Post ;
Por:
Código:
with DataModule.tblImagen do
begin
Open;
Edit;
FieldByName('Imagen2').Assing(ImgBolsa.Picture);
FieldByName('Imagen3').Assign(ImgBolsa.Picture);
Post;
end;
Saludos.