... while not rslt.Eof do if rslt.FieldValues['LICH'] = dbf1.FieldValues['LICH'] then ...
Я не понял Вашего вопроса, но всё же Вам на него отвечу!