Delhpi 7 Access долго добавляются записи

//Сравнение с существующими записями в БД
        with BDForm.ADODS do begin
          active:=false;
          commandtext:='SELECT * FROM device WHERE adres=:adres and num=:num and tim=:tim and dat=:dat';
          prepared:=true;
          Parameters.ParamByName('adres').Value:=3;
          Parameters.ParamByName('num').Value:=buf[1];
          Parameters.ParamByName('tim').Value:=tim;
          Parameters.ParamByName('dat').Value:=dat;
          Active:=true;
        end; //with BDForm.ADODS
        if BDForm.ADODS.FieldByName('num').Asinteger=0 then
          begin
//Запрос из Базы Данных если нет совпадений
            with BDForm.ADODS do begin
              active:=false;
              commandtext:='Select * FROM События WHERE num=:num';
              prepared:=true;
              Parameters.ParamByName('num').Value:=buf[1];
              Active:=true;
            end; //with BDForm.ADODS
            sob:=BDForm.ADODS.FieldByName('status').AsString;
//Запись в Базу Данных через SQL запрос
            with BDForm.ADOC do begin
              commandtext:='INSERT INTO device(adres,num,status,Tim,Dat) VALUES(:adres,:num,:sob,:tim,:dat)';
              prepared:=true;
              Parameters.ParamByName('adres').Value:=3;
              Parameters.ParamByName('num').Value:=buf[1];
              Parameters.ParamByName('sob').Value:=sob;
              Parameters.ParamByName('tim').Value:=tim;
              Parameters.ParamByName('dat').Value:=dat;
              Execute;
            end; //with BDForm.ADODS