Me olvide de algo: la funcion
BlobToStream
Código Delphi
[-]function BlobToStream(Field: TField): TMemoryStream;
begin
Result := nil;
if Field.IsBlob then
begin
Result := TMemoryStream.Create;
try
TFIBBlobField(Field).SaveToStream(Result);
except
FreeAndNil(Result);
end;
end;
end;
TFIBBlobField pertenece a FibPlus debe cambiarlo al tipo q usa interbase o prueba con el tipo TBlobField