Select count em duas tabelas

      Close;  //verificando quantas contas existem na ORIGEM
      SQL.Clear;
      SQL.Add(''''SELECT COUNT(*) AS TOT'''');
      SQL.Add(''''FROM TBDUPLICATAS'''');
      SQL.Add(''''WHERE COD_CEDENTE = :COD'''');
      ParamByName(''''COD'''').AsInteger:= StrToInt(edCodOrigem.Text);
      Open;
      Edit1.Text := IntToStr(qrAux.FieldByName(''''TOT'''').AsInteger);

      Close; //verificando quantas contas existem no DESTINO
      SQL.Clear;
      SQL.Add(''''SELECT COUNT(*) AS TOT'''');
      SQL.Add(''''FROM TBVENCIDAS'''');
      SQL.Add(''''WHERE COD_CEDENTE = :COD'''');
      ParamByName(''''COD'''').AsInteger:= StrToInt(edCodOrigem.Text);
      Open;
      Edit2.Text := IntToStr(qrAux.FieldByName(''''TOT'''').AsInteger);