Делфи(закраска отедельных ячеек в стринг грид)

[zoza1]

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

var
a:array[1..9,1..9] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 9 do
for j:=1 to 9 do
begin
a[i,j]:=strtoint(stringgrid1.cells[i-1,j-1]);
if a[i,j]:=0 then 
{и вот тут я застрял))
догодался только до }
stringgrid1.color:=clred;
end;
end;

народ подскажите плз

[raxp]

>>> тырк и проверяем текст на 0.

[Google2010]

http://programmersforum.ru/showthread.php?t=8416

[SERG1980]

var
a:array[1..9,1..9] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 9 do
for j:=1 to 9 do
begin
a[i,j]:=strtoint(stringgrid1.cells[i-1,j-1]);
if a[i,j]:=0 then
begin 
 StringGrid1.Canvas.Brush.Color:=clred;
 StringGrid1.Canvas.FillRect(StringGrid1.CellRect(i,j));
end;
end;
end;