[bddelphi]

Всем спасибо. Решение оказалось элементарным: Их просто нужно было сложить
Accept := AnsiUpperCase(DataSet['productid'])+AnsiUpperCase(DataSet['vendorid'])
= AnsiUpperCase(edit5.Text)+AnsiUpperCase(edit4.Text );