Mysql нагружает систему

ShowMessage(E.ClassName+' поднята ошибка, с сообщением : '+E.Message);

StopAp := true;
  form3.sCheckBox1.Enabled := false;
  Form3.sLabel6.Caption := '0';
  Form3.sLabel7.Caption := '0';
  Form3.sLabel8.Caption := '0';
  //Form3.sGauge1.Progress := 0;
 
  CAcc := 0;
  Accs := 0;
  form3.sButton2.Enabled := false;
  form3.sButton3.Enabled := true;
 
  TimeStart := Now;
  form3.Timer2.Enabled := true;
 
  ADOQuery := TADOQuery.Create(nil);
  ADOQuery.Connection := ADOCon;
  ADOQuery.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="Driver=MySQL ODBC 5.2 Unicode Driver;SERVER=127.0.0.1;UID=root;DATABASE=ap_links;PORT=3306"';
  try
  while ( StopAp ) do
  begin
    try
      Application.ProcessMessages;
      CS.Enter;
      inc(Accs);
      if Accs < LoadlinkCount then begin CAcc := Accs; end else begin {Break;} StopAp := false; end;
      CS.Leave;
      linkCopy := Copy(linkList[CAcc], 1, Length(linkList[CAcc]));
      try
        ADOQuery.Close;
        ADOQuery.SQL.Clear;
        ADOQuery.SQL.Add( ' SELECT * FROM `link_check` WHERE `links` LIKE Lower( :linkss )' );
        ADOQuery.Parameters.ParamValues[ 'linkss' ] := Trim( linkCopy );
        ADOQuery.Prepared := true;
        ADOQuery.Open;
        if not ADOQuery.Eof then
        begin
          // В списке
          Form3.sLabel7.Caption := IntToStr(StrToInt(Form3.sLabel7.Caption) + 1);
        end else
        begin
          // Не в списке
          Form3.sLabel8.Caption := IntToStr(StrToInt(Form3.sLabel8.Caption) + 1);
          if form3.sCheckBox1.Checked then
          begin
            try
              ADOQuery.SQL.Clear;
              ADOQuery.SQL.Add( 'INSERT INTO `link_check`( `links` ) VALUES ( :llc )' );
              ADOQuery.FieldByName( 'llc' ).AsString := Trim( linkCopy );
              ADOQuery.ExecSQL;
            except
              on e : exception do
                ShowMessage(E.ClassName+' поднята ошибка, с сообщением : '+E.Message);
            end;
          end;
        end;
        form3.sLabel6.Caption := IntToStr( StrToInt( form3.sLabel5.Caption ) - ( StrToInt( form3.sLabel7.Caption ) + StrToInt( Form3.sLabel8.Caption ) ) );
        form3.sGauge1.Progress := form3.sGauge1.Progress +1;
        form3.sEdit2.Text := format( '%.01f', [ 100 * StrToInt( Form3.sLabel8.Caption ) / StrToInt( Form3.sLabel5.Caption ) ] )+ '%';
        //ADOQuery.Close;
      except
        on e: exception do
          ShowMessage(e.ClassName + ' поднята ошибка, с сообщением : ' +e.Message);
      end;
    except
      on e: exception do
        ShowMessage(e.ClassName + ' поднята ошибка, с сообщением : ' +e.Message);
    end;
  end;
  finally
    if not StopAp then
    begin
      if (Song) then Beep;
      form3.sButton1.Enabled := true;
      form3.sButton3.Enabled := false;
      form3.sCheckBox1.Enabled := true;
      form3.Timer2.Enabled := false;
    end;
  end;

ADOQuery.SQL.Clear;
        ADOQuery.SQL.Text := 'SELECT COUNT(*) AS ccount FROM `link_check` where `links` = Lower( :ddc )';
        ADOQuery.Parameters.ParamValues[ 'ddc' ] := Trim( linkCopy );
        ADOQuery.Prepared := true;
        ADOQuery.Open;
        if ADOQuery.FieldValues['ccount'] <> 0 then
        begin
          Form3.sLabel7.Caption := IntToStr(StrToInt(Form3.sLabel7.Caption) + 1);
        end else
        begin
          Form3.sLabel8.Caption := IntToStr(StrToInt(Form3.sLabel8.Caption) + 1);
        end;