if DM.Qzu.Locate('kad_num',knbeznul(kn),[loCaseInsensitive, loPartialKey]) then

Project Project1.exe raised exception class EIBInterBaseError with message 'arithmetic exception, numeric overflow, or string truncation'. Process stopped. Use Step or Run to continue.