cmp_Query_.Close; cmp_Query_.SQL.Clear; cmp_Query_.SQL.Add('SELECT * FROM ITEM WHERE ' + FieldName + ' = :FieldValue');