Opsss.. ci sono riuscito:
codice:
if DataModule1.Q_app_descrData.Value = Date then
        begin
        DBGrid2.Canvas.Brush.Color:=clred;
        DBGrid2.DefaultDrawColumnCell (Rect, DataCol, Column, State);
        end;