[Alegun]

Может с помощью запроса

Код:

...
 with AdoQuery do
  begin
   Close;
   SQL.Text:= 'SELECT COUNT(*) FROM Table_name Where Name_field6=''' + a[row,6] + '''';
   Open;

   if Fields[0] > 0 then ... // есть в базе
    else ... //такого не нашлось;
  end;
...