增加重复信息没有提示，代码要怎么改？

写了点试试，结果有重复的信息没有检查就直接添加进数据库了。
这代码要怎么完善呢？
请大虾帮忙，谢谢！

-----------------------------------------------
TVData -> tvFormual -> Append();  

TVData ->tvFormualModelNo ->Value = addMod ->Text;
TVData ->tvFormualClientCode ->Value = addClc ->Text;
TVData ->tvFormualVendorCode ->Value = addVenCo ->Text;

if(MessageDlg("確認添加記錄!",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes)
  TVData -> tvFormual -> Post();
else
  TVData -> tvFormual -> Cancel();
  addMod ->Text ="";
  addClc ->Text ="";
  addVenCo ->Text ="";

Post之前要校验，重复就不要post