Сравнить содержимое столбца Adotable c содержимым dbedit

 if form9.ADOTable1Табельный_ .AsInteger = strToint
      (DBEdit2.Text) then
    begin
      DBEdit2.Clear;
      ShowMessage('Такой табельный уже есть!!!');
    end
    else
    begin
      form9.ADOTable1.post;
      Close;
    end;

if form9.ADOQuery1.FieldByName('Табельный_№').asinteger = strToint
      (DBEdit2.Text) then
    begin
      DBEdit2.Clear;
      ShowMessage('Такой табельный уже есть!!!');
    end
    else
    begin
      form9.ADOTable1.post;
      Close;
    end;

var s:string;
 c:integer;
...
s:=ADOQuery1.FieldByName('поле').AsString;
q.sql.text:='select count(поле) as C from таблица where поле='+s;
q.open;
c:=q.FieldByName('C').AsInteger;
q.close;
if c > 0  then 
  raise Exception.Create('Такой табельный уже есть');

try
  ...
  ..Post;
except
  showMessage('Не удалось вставить, возможно дублируется Т.Н.');
end;

procedure TForm10.RzBitBtn1Click(Sender: TObject);
var
  s: string;
  c: integer;
begin
  if tag = 0 then
  begin
    if DBEdit2.Text = '' then
    begin
      ShowMessage('Введите табельный №!!!');
    end
    else if DBEdit3.Text = '' then
    begin
      ShowMessage('Введите ФИО сотрудника!!!');
    end
    else if DBLookupComboBox1.KeyValue = NULL then
    begin
      ShowMessage('Выберите должность сотрудника!!!');
    end
    else if DBLookupComboBox2.KeyValue = NULL then
    begin
      ShowMessage('Выберите персонал сотрудника!!!');
    end;
 
    s := Form9.ADOTable1.FieldByName('Табельный_№').AsString;
    Form9.ADOQuery1.sql.Text :=
      'select count(Табельный_№) as C from Сотрудники where Табельный_№=' + s;
    Form9.ADOQuery1.open;
    c := Form9.ADOQuery1.FieldByName('C').AsInteger;
    Form9.ADOQuery1.close;
    if c > 0 then
    begin
      ShowMessage('Такой табельный уже есть');
    end
    else
    begin
      Form9.ADOTable1.post;
      close;
    end;
  end
  else
  begin
    if DBEdit2.Text = '' then
    begin
      ShowMessage('Введите табельный №!!!');
    end
    else if DBEdit3.Text = '' then
    begin
      ShowMessage('Введите ФИО сотрудника!!!');
    end
    else if DBLookupComboBox1.KeyValue = NULL then
    begin
      ShowMessage('Выберите должность сотрудника!!!');
    end
    else if DBLookupComboBox2.KeyValue = NULL then
    begin
      ShowMessage('Выберите персонал сотрудника!!!');
    end
    else
    begin
      Form9.ADOTable1.post;
      close;
    end;
  end;
end;

procedure TForm14.RzBitBtn1Click(Sender: TObject);
var
  s: string;
  c: integer;
begin
  if tag = 0 then
  begin
    if DBEdit1.Text = '' then
    begin
      ShowMessage('Введите категорию!!!');
      exit;
    end
    else if DBEdit2.Text = '' then
    begin
      ShowMessage('Введите срок службы!!!');
      exit;
    end
    else s := Form13.ADOTable1.FieldByName('Группа').AsString;
    Form13.ADOQuery1.sql.Text :=
      'select count(Группа) as C from Группа where Группа=' + s;
    Form13.ADOQuery1.open;
    c := Form13.ADOQuery1.FieldByName('C').AsInteger;
    Form13.ADOQuery1.close;
    if c > 0 then
    begin
      DBEdit1.Clear;
      ShowMessage('Такая группа уже есть!!!');
      exit;
    end
    else
    begin
      form13.ADOTable1.post;
      Close;
    end;
  end
  else
  begin
    if DBEdit1.Text = '' then
    begin
      ShowMessage('Введите категорию!!!');
      exit;
    end
    else if DBEdit2.Text = '' then
    begin
      ShowMessage('Введите срок службы!!!');
      exit;
    end
    else
    begin
      form13.ADOTable1.post;
      Close;
    end;
  end;
end;

'...Группа=' + AnsiQuotedStr( s, '''');