Hola, seb@.
Para un TStringGrid utiliza el evento onDrawCell con un código parecido a este:
Código:
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,