Interbase 的 Blob 问题(50分)

以前用 BDE 读写 Blob，已经成功，只是速度不尽人意，今天想用 D5 的 Interbase 组件
重写原来的程序，结果在这里出了问题：
procedure TfmBlob.btnReadDocClick(Sender: TObject);
var
BStream: TBlobStream;
FStream: TFileStream;
begin
BStream := TBlobStream.Create(IBQuery1Doc,bmRead); //本句
编译没问题，但执行到这里就出提示：Invalid class typecast。我查了 IBQuery1Doc
对象，是 TBlobField 类，没错的，这是为什么？该怎么解决？
当换用 TIBBlobStream 时，该对象的 Create 方法是不带参数的，而 D5 帮助文件中举
的例子居然带参数！实在是不明白。
先拿出50分，因为上次拿200分征求答案，没人答出来，浪费了，如有人答出，可以再加分。

应该用 IBQuery 本身的 CreateStream 方法。

接受答案了.