OK, für alle, die ein ähnliches Problem haben sollten.
Einfach in OnDrawColumnCell folgenden Code ergänzen:
Delphi-Quellcode:
if (gdSelected in State) then
begin
with DBGrid1.Canvas do
begin
Brush.Color := clHighlight;
Font.Color := clHighlightText;
end;
end;
So funktioniert es bei mir nun auch.
Besten Dank