[cotseec]

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if ARow = 3 then
begin
    StringGrid1.Canvas.Brush.Color := clMenu;
    StringGrid1.Canvas.Rectangle(Rect);
    StringGrid1.Font.Color:=clBlack;
end;
    StringGrid1.Font.Color:=clBlack;
end;

этим вы все закрашиваете, после чего нужно в этой же процедуре вывести ранее закрашенный текст

Код:

     StringGrid1.Canvas.TextRect(Rect,Rect.Left,Rect.Bottom,
                                 StringGrid1.Cells[ACol,ARow]);

соответсвтенно задав перед выводом необходимые свойства шрифта и пера