Usa el evento OnGetItemStyleEvent
Allí tienes la fecha que se va a pintar, la fuente y el color, como esos 2 últimos son por referencia, puedes modificarlos a voluntad.
Código Delphi
[-]
if (AStyleType = stDay) then
begin
Acolor := clRed;
AFont.Color := clYellow;
end;
Saludos