DB Grid - 1. Spalte einfärben

[Svenkan]

Hab jetzt folgenden Code gefunden und modifiziert:

Delphi-Quellcode:

procedure TVertretungen.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if Column.FieldName = 'KLASSEN' then begin
      DBGrid1.Canvas.Brush.Color := clGradientActiveCaption;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
 end;
end;

Nun möchte ich, dass in dieser Spalte auch fett geschrieben wird:

      DBGrid1.Canvas.Font.Style := [fsBold]; Das eingefügt bewirkt leider so überhaupt nichts.

/edit:

Delphi-Quellcode:

procedure TVertretungen.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if Column.FieldName = 'KLASSEN' then begin
      DBGrid1.Canvas.Brush.Color := clGradientActiveCaption;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid1.Canvas.Font.Style := [fsBold];
      DBGrid1.Canvas.TextRect(Rect,Rect.Left, Rect.Top,Column.Field.AsString);
 end;
end;

Mit dem Code funktionierts!