--- ibx/trunk/runtime/IBBlob.pas	2000/07/31 16:43:00	1
+++ ibx/trunk/runtime/IBBlob.pas	2011/02/18 16:26:16	5
@@ -28,11 +28,13 @@
 
 unit IBBlob;
 
+{$Mode Delphi}
+
 interface
 
 uses
-  Windows, SysUtils, Classes, Forms, IBHeader, IBErrorCodes, IBExternals,
-  DB, IB, IBDatabase, IBUtils;
+  SysUtils, Classes, IBHeader, IBErrorCodes, IBExternals, DB, IB, IBDatabase;
+
 
 const
   DefaultBlobSegmentSize = 16 * 1024; 
@@ -104,7 +106,7 @@ type
 
 implementation
 
-uses IBIntf, IBCustomDataSet;
+uses IBIntf;
 
 procedure GetBlobInfo(hBlobHandle: PISC_BLOB_HANDLE; var NumSegments, MaxSegmentSize,
                       TotalSize: Long; var BlobType: Short);