Prueba poner algo como
Código Delphi
[-]
if State*[gdSelected, gdFocused] = [] then
Canvas.Font.Color := clWhite;
Es decir, con esa condición detectas si la celda en ese momento está seleccionada, y de ser así, pone el color blanco en lugar del rojo.
// Saludos