[aeff]

saludos, ¿por que no añades en el uses de tu unit "DB"?, te quedará así mas o menos:

Código Delphi [-]
...
uses DB,...;
...

¿me entiendes colega?

si no, entonces implementa esto debajo del end; del type, o sobre donde dice var:

Código Delphi [-]
  TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
    ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
    ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
    ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,
    ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob,
    ftVariant, ftInterface, ftIDispatch, ftGuid);

espero que te sirva