Крестики Нолики, не получается адекватно настроить начисление очков

 
int score_o;
bool __fastcall TForm1::scoreo(int co,int rw) {
 int win_value_o = 0;
                   
     for (int i=0;i<20;i++)       /строенный цикл - по столбцам
       for (int j=0;j<20;j++)        /по строкам
         for (int k=0,eqo=0;k<5;k++) /от каждой ячейки поля просчитать
 
         {    if ((i+co*k < 20)&&(j+rw*k < 20)&& // количество одинаковых значков в направлении
               (i+co*k >-1)&&(j+rw*k >-1)) //результат сравнения счетчиков одинаковых картинок (Х или О)
               if (grad[i+co*k][j+rw*k]==1) eqo++;  // количество одинаковых значков в направлении
                 if (eqo  == 4) {
         win_value_o++;
         }
               Label6->Caption = IntToStr(score_o);
          }
if (win_value_o > 0) {
score_o = score_o + 10;// пытаюсь начислить очки однако +10 начисляется за все фигуры которые я проставил
}
 
         return win_value_o > 3 ;