> Stream = new TBlobStream((TBlobField

*)Query1->FieldByName("Notes"),

> bmRead);

This code is not recommended with TDataset based queries, even with
non-IBO.

TDataset has a function called CreateBlobStream, which is the
appropriate function to use - this allows TIBOQuery (or any other
TDataset based query) to create the appropriate type of blob stream.

Stream := Query1->CreateBlobStream(
Query1->FieldByName("NOTES"), bmRead);

The stream variable should simply be declared as type TStream, unless
you intend to use functions/properties specified to the particular
BlobStream type.


If you are using TIB_Query (which derives from TIB_Statement) there is
an equivalent CreateBlobStream function available.


Another query about the code, is why you have a separate buffer. Why
not load the memo directly from the stream? Memo.Lines is a TStrings
property that has LoadFromStream capabilities.


HTH

Geoff Worboys
Telesis Computing