Wie ziehe ich eine farbige Linie in einem DBGrid / DrawColumnsCell-Event?

[NicoleWagner]

das ist GENAU was ich will.
Danke!

==============
PS, nach der Implementierung

ich habe ein Problem.
Vorweg mein half-Workaround lautet: "if (DataCol > 12) then Monatswechsel:=false;" Das zeichnet mal lange Striche, wenigstens bis 12.

Was nicht geht, ist:
Columns.Count

Dieser Wert sollte 28 sein, ist jedoch fuzzy.
Einmal wird im Debugger angezeigt, er wäre "nicht verfügbar", dann wiederum gibt er ein falsches Ergebnis.

Auch "(DataCol > 20)" ist nicht "true", wenn ich es denke, es sollte es.

Kann das daran liegen, dass ich in meinem DBGrid die Spalten im Spalteneditor von der Reihenfolge her verändert habe?
Wenn ja, wie gehe ich damit um?

Die Query ist eine Mischung aus db-Abfragen und "calculated"-Feldern.

Gerade beim "calculated" wird mir das auf den Kopf fallen, wenn ich auf eine falsche Spalte zugreife.

Ich habe Delphi XE3, das leider bei Zugriffen auf Listen zuweilen hässliche Bugs hat, die in der IDE begründet liegen.
Doch vielleicht hat jemand für mich Hinweise, wie ich damit umgehe.

Danke!