1:

StringGrid1.canvas.Font.Color:=Farbe[ACol,ARow]                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (Sender as TStringGrid).Cells[ACol, ARow] <> '' then begin
    (Sender as TStringGrid).Canvas.Brush.Color := clRed;
    (Sender as TStringGrid).Canvas.FillRect(Rect);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

uses
  ..., ExtCtrls; // für die Shapes

const
  MAX_X = 5; // Anzahl Felder waagerecht
  MAX_Y = 5; // Anzahl Felder senkrecht
  FIELDSIZE = 32; // Feldgröße in Pixeln

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure ShapeMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);

implementation

procedure TForm1.FormCreate(Sender: TObject);
  var
    i, j: Integer;
    ThisShape: TShape;
begin
  Self.ClientWidth := (MAX_X +2) *FIELDSIZE;
  Self.ClientHeight := (MAX_Y +2) *FIELDSIZE;
  for i := 1 to MAX_Y do
    for j := 1 to MAX_X do begin
      ThisShape := TShape.Create(Self); // erzeugen, Eigentümer: das Formular
      ThisShape.Parent := Self; // sichtbar machen
      ThisShape.Left := j*FIELDSIZE; // Position setzen
      ThisShape.Top := i*FIELDSIZE;
      ThisShape.Width := FIELDSIZE; // Größe setzen
      ThisShape.Height := FIELDSIZE;
      // Referenz-Nummer: daraus kann man ggfs. wieder die Koordinaten berechnen
      ThisShape.Tag := i*MAX_Y +j;
      // Ereignis zuweisen
      ThisShape.OnMouseDown := ShapeMouseDown;
    end;
end;

procedure TForm1.ShapeMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Sender as TShape).Brush.Color = clWhite then
    (Sender as TShape).Brush.Color := clBlack
  else
    (Sender as TShape).Brush.Color := clWhite;
end;                    

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

procedure TForm5.StatistikListeSparDrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);
begin
 for i := 1 to 10 do
  begin
     If StatistikListeSpar.Cells[2, i] <> '' then begin
        StatistikListeSpar.RePaint;
        StatistikListeSpar.Canvas.Brush.Color := clRed;
        StatistikListeSpar.Canvas.FillRect(Rect);
     end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm5.StatistikListeSparDrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);
begin
     If StatistikListeSpar.Cells[2, i] <> '' then begin
        StatistikListeSpar.Canvas.Brush.Color := clRed;
        StatistikListeSpar.Canvas.FillRect(Rect);
     end;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm5.StatistikListeSparDrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);
begin
     if ACol = 2 and StatistikListeSpar.Cells[ACol, ARow] <> '' then begin
        StatistikListeSpar.Canvas.Brush.Color := clRed;
        StatistikListeSpar.Canvas.FillRect(Rect);
     end;
end;                    

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

procedure TForm5.StringGrid1DrawCell(Sender: TObject; ACol,ARow: Integer; Rect: TRect; State: TGridDrawState);
begin 
   if not Odd(ARow) and not (gdFixed in State) then
   with StringGrid1 do
   begin
     Canvas.Brush.Color := clRed;
     Canvas.FillRect(Rect);
     Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);

   end;
end;                    

1:

StringGrid1DrawCell(Sender, Acol, Arow, Rect, State);                    

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

// irgendwo weiter oben :
SgdColoredCells: TStringGrid;
 
procedure TForm5.SgdColoredCellsDrawCell(Sender: TObject; ACol,ARow: Integer; Rect: TRect; State: TGridDrawState);
begin 
   if not Odd(ARow) and not (gdFixed in State) then
   begin
     SgdColoredCells.Canvas.Brush.Color := clRed;
     SgdColoredCells.Canvas.FillRect(Rect);
     SgdColoredCells.Canvas.TextOut(Rect.Left+2, Rect.Top+2, SgdColoredCells.Cells[ACol, ARow]);
   end;
end;