Cor da celula

Eu tenho o seguinte coodigo:

for lin := 0 to Stringgrid1.RowCount-1 do
for col := 1 to Stringgrid1.ColCount do
begin
valor := StringGrid1.Cells[lin, col];
if (StrToInt(valor) >= 50) then
begin
StringGrid1.Canvas.Brush.Color := clGreen;
StringGrid1.Canvas.FrameRect(Rect);
end
else
begin
StringGrid1.Canvas.Brush.Color := clwhite;
StringGrid1.Canvas.FrameRect(Rect);
end;
end;

Ele recupera o valor da celula atual e verifica se o conteudo é maior que 50, se for maior que 50 ele deveria contornar esta celula de verde, mas o que acontece, é: se ele é maior que 50 ele pinta todos de verde e não apenas o que tem valor 50, o que tem de errado?