количество ячеек с одним значением (StringGrid)

[Кас Алина]

не подскажите как посчитать количество значений равных 1?
в данной процедуре импорт из Excel в StringGrid. нужно посчитать количество единиц в каждой строке.

procedure TForm1.Button2Click(Sender: TObject);
 var
 s:string;
 i,k,n,j:integer;
begin
//Открытие документа Excel
Exl:= CreateOleObject('Excel.Application');
s:=ExtractFilePath(ParamStr(0))+'s.xls';
Exl.WorkBooks.Open(s);
Exl.visible:=false;

StringGrid3.RowCount:=21;
StringGrid3.ColCount:=25;

k:=0;
for i:=1 to 21 do 
begin
 k:=k+1;
 for j := 0 to 24 do
  StringGrid3.Cells[j,0+i]:=Exl.WorkBooks[1].WorkSheets[2].Cells[4+i,4 + j];
end;

Exl.Quit;
    end;

[Marsel737]

var
  I, J, intOneCount: integer;
begin
  for I := 0 to StringGrid1.RowCount - 1 do
  begin
    for J := 0 to StringGrid1.ColCount - 1 do
    begin
      if StringGrid1.Cells[I, J] = '1' then
        Inc(intOneCount);
    end;
    ShowMessage('В строке ' + IntToStr(I + 1) + ' ' + IntToStr(intOneCount) + 'единиц');
    intOneCount := 0;
  end;
end;

[Кас Алина]

всё правильно, но почему-то 0 показывает

k:=0;
for i:=0 to 20 do
begin
 for j := 0 to 24 do
  StringGrid3.Cells[j,0+i]:=Exl.WorkBooks[1].WorkSheets[2].Cells[4+i,4 + j];
   if StringGrid1.Cells[I, J] = '1' then
        Inc(k);

end;

[Кас Алина]

прошу прощения не тот код
вот этот

k:=0;
for i:=0 to 20 do
begin
 for j := 0 to 24 do
  StringGrid3.Cells[j,0+i]:=Exl.WorkBooks[1].WorkSheets[2].Cells[4+i,4 + j];
   if Exl.WorkBooks[1].WorkSheets[2].Cells[4+i,4 + j].value = '1' then
        Inc(k);