Для раскрашивания можно использовать событие OnDrawCell. Для раскрашивания можно использовать событие OnDrawCell.пример вот код расскрашивает все ячейки в желтый цвет.
Код:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
ACanvas:TCanvas;
begin
ACanvas := StringGrid1.Canvas;
ACanvas.Brush.Color := clYellow;
ACanvas.FillRect(Rect);
end;