Delphi - DBGrid - vyfarbovanie buniek a zadanie názvov stĺpcov sa bije

1. Toto nesúvisí s názvom vlákna, viem to obísť dostačujúcim riešením:
Pri vyfarbovaní, ak nemá DBGrid focus, tak správne má byť riadok len označený zobáčikom a nemá byť modro vysvietený, lenže ak pri vyfarbovaní testujem, či má riadok focus, tak nech to robím akokoľvek,

  if (gdFocused in State) and (gdSelected in State) then
    begin
      (Sender as TDBGrid).DefaultDrawDataCell(Rect, Field, State);
      exit;

  if (gdFocused in State) and (gdSelected in State) then
    begin
      exit;

  if (gdFocused in State) then
    begin
      (Sender as TDBGrid).DefaultDrawDataCell(Rect, Field, State);
      exit;

  if (gdFocused in State) then
    begin
      exit;

stále to rovnako nefunguje:

Riešenie spočíva v tom, že netestujem focus, iba selektovanie, ale potom je modrý pás aj vtedy, ak nemá DBGrid focus. V DBGrid mám nastavené RowSelect na true, takže v tom problém nespočíva.

2. No a toto súvisí s názvom vlákna:
Pomocou OnDrawDataCell som si vytvoril metódu na farbenie buniek. Po zadaní hodnôt DBGrid.Columns[1..n] v Object Inspectore mi prestalo vyfarbovať bunky. Čo s tým teraz? Vyplnené Columns je nutnosťou kvôli správnemu zobrazeniu diakritiky v názvoch stĺpcov (Čas, Pracovníci, Názov, atď.).