[madMonia]

Переопределить событие OnDrawCell

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject;
  ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
begin
StringGrid1.Canvas.Brush.Color:=clRed;
if ((ACol=1)and(ARow=1)) then
  StringGrid1.Canvas.FillRect(Rect);
end;

Данный код закрашивает ячейку с координатами (1, 1)