Ich würde auch sagen, dass man das so sowieso nicht erreichen kann. Das Zeichnen der Zellen passiert ja OnTheFly. D.h. die Schriftfarbe und so weiter wird nicht komplett in allen Nodes hinterlegt sondern direkt vorm Zeichnen festgelegt und ggf. mit OnBeforePaint usw. angepasst. Die Infos musst Du Dir also aus den Daten holen.
Die Schleife wäre so besser:
Delphi-Quellcode:
with vst_zeiterfassung do
begin
curNode := GetFirst;
while CurNode <> nil do
begin
TimeOverviewDate := TOTimeOverviewData(vst_zeiterfassung.GetNodeData(curNode)^);
if TimeOverviewDate.IsRot then ...
curNode := GetNext(curNode);
end;
end;