EXE no Banco de Dados !!

TBlobField(DMGestaoRisco.cdsGestaoRiscoAnexo).LoadFromFile(OpenDialog.FileName);

procedure GravarFotoDB;
var  
  jpg: TJPEGImage;
  bmp : TBitmap;
  st: TStream;
  fs: TFileStream;
begin
  
  //cria a imagem em jpg, copiando neste exemplo de um bitmap
  bmp := TBitmap.Create;
  try
    bmp.loadfromfile("minhaimagem.bmp");
    with TJPEGImage.Create do
      try
        Assign(bmp);
        Compress; 
        SaveToFile("minhaimagem.jpg"); //<---atenção agora é um jpeg
      finally
        Free;
      end;
  finally
    bmp.free;
  end;

  //agora abre a imagem jpeg em um stream
  fs := TFileStream.Create( "minhaimagem.jpg", fmOpenRead);
  try
    //tbFoto é a tabela onde vamos guardar a foto.    
    try
      //pomos a tabela em edição, inserção
      tbFoto.Insert;

      //criamos o stream do campo blob, que no caso se chama campo ´imagem´ 
      //aqui que está o segredo, agora fica tudo + fácil, pois temos dois streams
      //o primeiro é o fs,qque é o stream de arquivo que criamos ao abrirmos o
      //arquivo jpeg. O outro é o stream do blob... 
      st := tbFoto.CreateBlobStream(tbFoto.FieldByName(´imagem´), bmWrite);

      //basta então agora copiar de um pro outro
      st.CopyFrom(fs, fs.Size);

      //fechamos a edição do registro
      tbFoto.Post;
    except
      //no caso de excessão então a tabela volta em estado browser 
      tbFoto.Cancel;
    end;
  finally
    st.free;
    fs.free;
    DeleteFile(filename);
  end;
end;