求大神救 [Error] Unit2.pas(1160): Incompatible types: 'String' and 'Integer',该如何解决

求大神救 [Error] Unit2.pas(1160): Incompatible types: 'String' and 'Integer'
if(Label113.Color=clGreen) then
 yc[96]:=1
 else
 yc[96]:=0;


 if(Label190.Color=clGreen) then
 yc[97]:=1
 else
 yc[97]:=0;


 if(Label115.Color=clGreen) then
 yc[98]:=1
 else
 yc[98]:=0;

if(Label115.Color=clGreen) then
yc[99]:=1
else
yc[99]:=0;

if(Label64.Color=clGreen) then
yc[100]:=1
else
yc[100]:=0;


if(Label8.Color=clGreen) then
 yc[101]:=1
 else
 yc[101]:=0;
加入这段代码之后就出现了，上面的问题
急求大神帮忙啊

------解决方案--------------------
yc[96]:=1
改为
 yc[96]:='1'

其它类推试试？