Ayuda en StringGrid

[Descendents]

Pon esto en el Ondrawcell del stringgrid
Suerte

begin
if (acol = 1) and (arow = 1) then begin
StringGrid1.Canvas.Brush.Color := clred;
StringGrid1.Canvas.FillRect(Rect);
end;
end;

Un saludo