para grabar la imagen seria muy similar.
Código Delphi
[-]var JpegImage: TJPEGImage;
begin
if FDQInsumoscodigo.AsString <> ''
then
Begin
if abrir.Execute
then
Begin
JpegImage:=TJPEGImage.Create;
try
JpegImage.LoadFromFile(abrir.FileName);
Imagen.Picture.Assign(JpegImage);
finally
JpegImage.Free;
end;
FDQImagenes.Close;
FDQImagenes.ParamByName('codigo').AsInteger:=FDQInsumoscodigo.AsInteger;
FDQImagenes.Open;
if FDQImagenescodigo.AsString = ''
then
Begin
FDQImagenes.Append;
FDQImagenescodigo.Value:=FDQInsumoscodigo.AsInteger;
End
else FDQImagenes.Edit;
FDQImagenesimagen.LoadFromFile(abrir.FileName);
FDQImagenesExt.Value:=Saca_extencion(abrir.FileName);
FDQImagenes.Post;
SinImagen.Visible:=false;
imagen.Visible:=true;
End;
End;
end;