From 8619a9f296e0473e80db683af1a77f98903875d9 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 12 Mar 2019 03:44:14 +0000
Subject: [PATCH] * Let TBlobField descend of TField

---
 packages/fcl-db/db.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-db/db.pas b/packages/fcl-db/db.pas
index 38b38c7..a087172 100644
--- a/packages/fcl-db/db.pas
+++ b/packages/fcl-db/db.pas
@@ -662,7 +662,7 @@ type
   TBlobStreamMode = (bmRead, bmWrite, bmReadWrite);
 //  TBlobType = ftBlob..ftMemo;
 
-  TBlobField = class(TBinaryField)
+  TBlobField = class(TField)
   private
     FModified : Boolean;
     // Wrapper that retrieves FDataType as a TBlobType