Moin Waldow,
das müsste so (oder so ähnlich

) funktionieren:
(Bei deinem Ansatz würde er
imho beim Zeichnen jeder Zelle immer
alle Zeilen durchgehen)
Delphi-Quellcode:
if (ARow <> 0) and (ACol in [9,11]) then
begin
Colors[ ACol, ARow ] := clRed;
end;