Отключить DefaultDrawing и самостоятельно перерисовывать все ячейки в событии onDrawCell. Например так:
Код:
if (ACol=1) and(AROw=1) then // для ячейки 1-1
begin
StringGrid1.Canvas.Brush.color := clYellow; // цвет фона
StringGrid1.Canvas.Font.Size:=14; // размер шрифта
StringGrid1.Canvas.FillRect(Rect); // рисуем фон
StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]); // рисуем текст
end;