StringGrid

Pessoal, peguei uma tela para dar manutenção e tem o stringgrid, estou tentando fazer pintar uma linha, mas não consigo..vejam se podem me ajudar...to fazendo assim no StringGrid1DrawCell

for i := 1 to stringgrid1.RowCount do

begin

if StringGrid1.Cells[10, i] = 'SIM' then

begin

 StringGrid1.canvas.brush.Color := clinfobk;

 StringGrid1.canvas.FillRect(rect);

 end

 else

 begin

 StringGrid1.canvas.brush.Color := clwhite;

 StringGrid1.canvas.FillRect(rect);

 end;

 end;

valeu