[Решено] Как правильно реализовать подсчёт логических полей в таблице?

procedure Form1_TableGrid1_OnChange (Sender: string);
var
   i,c,q: integer;
   iValue: double;
begin
     q := 0;
     c := Form1.TableGrid1.RowCount - 1;
     for i := 0 to c do
     begin
             iValue := Form1.TableGrid1.Cell[0, i].AsInteger;
             if iValue = 1 then Inc(q);
     end;

     Form1.TableGrid1.Columns[0].Footer.Caption := IntToStr(q);
end;


begin
    Form1.TableGrid1.Options := Form1.TableGrid1.Options + goFooter;
end.