StringGrid Zellenfarbe ändern?

[TaubenUlli]

Habs auf meine Bedürfnisse angepasst und läuft jetzt wie geschmiert!
Bei dem Code von dir wurden auch die Headleisten mit den Lösungen mit Farbe überdeckt, was natürlich ungünstig war,
hab das verbessert und bringt mir jetzt das gewünschte Ergebnis.
https://i.gyazo.com/e3622c77aab1977d...44403291ba.png
1000 Dank für den Code, und ein frohes Neues!

Code:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  sg : TStringGrid;
  c : TCanvas;
begin
  sg := TStringGrid( Sender );
  c := sg.Canvas;


  If (ACol>0) And (ARow>0) Then Begin
    If
      sg.Cells[ACol,ARow] = '1' Then
      c.Brush.Color := clBlack
    Else If
      sg.Cells[ACol,ARow] = '0' Then
      c.Brush.Color := clGray
    Else If
      sg.Cells[ACol,ARow] = ''  Then
      c.Brush.Color := clWhite
    Else
      c.Brush.Color := clRed;
    //...
    c.FillRect(Rect);
  end;

end;