Change font color on selected item

Hi, I use dbAdvGrid and this is the problem. My grid text are black exepte for some row who have information in the 4th column. This one have red text. This is the code I put in the OnGetSetColor of my dbAdvGrid.

 
begin
   if ARow <> 0 then
    begin
        if dbResultatsItems.Cells[3,ARow] <> '' then
        begin
            AFont.Color := StringToColor('clRed') ;
        end;
    end;
end;
 
I work well but when I click on a row the text turn to black. How can I do if I want it to stay red?
 
Thanx

The grid.SelectionTextColor has priority unless you set it to clNone.

Thanx a lot it's work now