1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with sender as Tstringgrid do
    begin
      //nicht für fixierte Zellen
      if gdfixed in state then exit;
      //hintergrund
      if (arow mod 12) = 0 then canvas.brush.color := clred
                           else canvas.brush.color := color;
      //textausgeben
      canvas.textrect(rect,rect.left+2,rect.top+2,cells[acol,arow]);
    end;
end;