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
Canvas.Font.Color:= clBlue;
.....
end;
jo manchmal steht man einfach auf den schlauch.
Daher sind unterschiedliche Ansätze schon hilfreich.