try
  IEBmp := TIEBitmap.Create;
  ImageEnIO := TImageEnIO.CreateFromBitmap(IEBmp);

  for i := 0 to Length(Vec) - 1 do
    begin
      ImageEnIO.LoadFromFile(Vec[i]);

      IEBmp.Resample (100, 100, rfFastLinear, True);
      { ... Create blob field and write thumbnail to database ... }

      ImageEnIO.ParamsFromFile(Vec[i]);
      { ... Write exif data to database ... } 
    end;

finally
  FreeAndNil(ImageEnIO);
  FreeAndNil(IEBmp);
end;

// Append a thumbnail to the database (with its meta-data)
MyBMP := TIEDBBitmap.Create();
MyBMP.ParamsEnabled := True; // So bitmap stores the params
MyBMP.Read( 'D:\MyBlobImage.jpeg' );
IEBmp.Resample (100, 100, rfFastLinear, True); // Convert to thumbnail
MyTable.Append;
MyTableName.AsString := 'My Thumbnail';
MyBmp.Write( MyTableImageBlob, ioJPEG );
MyTable.Post;
MyBmp.Free;