Abaixo segue pequeno trecho de código que irá permitir a gravação de arquivo JPG em um banco de dados qualquer.

Importante:

1. Deverá ser incluso no Uses as bibliotecas Jpeg e Clipbrd;

2. DBImage1 está associado ao campo do banco de dados que irá armazenar a imagem.

procedure TFormProdutos.Button1Click(Sender: TObject);
var
  JPG : TJpegImage;
begin
  if OpenDialog1.Execute then
  begin
    JPG:=TJpegImage.create;
    JPG.LoadFromFile(OpenDialog1.FileName);
    Clipboard.Assign(JPG);
    DBImage1.PasteFromClipboard;
    JPG.free;
  end;

Boa implementação a todos…