Следующая функция поможет определить размер BLOB-поля. 


   Function GetBlobSize(Field: TBlobField): LongInt;
   begin
     with TBlobStream.Create(Field, bmRead) do 
       try
         Result := Seek(0, 2); 
       finally
         Free; 
       end;
   end;