Result := isc_open_blob2(Status, db_handle, tran_handle, blob_handle, blob_id, 0, nil);

const
  aBPB: array[0..2] of Char = Chr(isc_bpb_version1) + Chr(isc_bpb_type) + Chr(isc_bpb_type_stream);
begin
  Result := isc_open_blob2(Status, db_handle, tran_handle, blob_handle, blob_id, SizeOf(aBPB), @aBPB);