* fix for twordfield=tlongintfield (bug 8500)

git-svn-id: trunk@6780 -

packages/fcl-db/src/db.pas

@@ -1786,7 +1786,7 @@ const
       { ftString} TStringField,
       { ftSmallint} TSmallIntField,
       { ftInteger} TLongintField,
-      { ftWord} TLongintField,
+      { ftWord} TWordField,
       { ftBoolean} TBooleanField,
       { ftFloat} TFloatField,
       { ftCurrency} TCurrencyField,