[JavierB]

Hola, seb@.

Para un TStringGrid utiliza el evento onDrawCell con un código parecido a este:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Txt: String;
begin
  if (ACol=2) and (ARow=2) then
  begin
    Txt:=StringGrid1.Cells[ACol,ARow];
    with StringGrid1.Canvas do
    begin
      Brush.Color:=clGreen;
      TextRect(Rect,Rect.Left+2,Rect.Top+2,Txt);
    end;
  end;
end;

Espero que te sirva. Saludos,