delphi如何检索adoquery里面某一列存在的重复行？

var
 IsHave:Boolean;
begin
  adoquery.first;
  while(not adoquery.eof) do 
begin
 if(adoquery.fieldbyname('列名').asstring="用户添加的值") then
 begin IsHave=True;
 break;
 end;
 adoquery.next;
end;
if(IsHave)then
showmessage("存在重复数据！");
end;