Danke für alle Antworten!
Sie halfen mir die Lösung zu finden. Sie lautet:
Delphi-Quellcode:
with (Sender as TDBGrid) do begin
.....
if (gdSelected in State) then /// färbt die Schrift der selektierten Zelle blau
Canvas.Font.Color:= clBlue;
.....
end;