[Assistant]

вот как-то так (мож где-то и ошибся, хз, на лету писал, но смысл должен быть понятен):

Код:

var
  cnt: integer;
begin
  ........................

  ADOQuery1.SQL.Text = 'SELECT COUNT(*) AS cnt FROM tabli WHERE nomer = ' + #39+nomer+#39;
  ADOQuery1.SQL.Open;
  cnt := ADOQuery1.FieldByName('cnt').AsInteger;
  ADOQuery1.SQL.Close;

  if cnt = 0 then
  begin
    ADOQuery1.SQL.Text = 'INSERT INTO tabli(nomer,rnn,title_tovar,title_kontora) VALUES '+
                         (' + #39+nomer+#39+','+#39+rnn+#39+','+#39+title_tovar+#39+','+#39+title_kontora+#39+')';
    ADOQuery1.ExecSQL;  
  end else
    ShowMessage('Такая запись уже есть в таблице! Нихера не уникально');
end;

P.S.: так и не понял к чему было form1.ADOQuery1.SQL.Create;