[*Caro*]

Hola kaelkas, paar pintar lo mas importante es la condición, recuperas el campo el cual vas a comparar con esa fecha y lo pintas, debes utilizar el evento OnDrawColumnCell.

Código Delphi [-]
 
procedure TForm1.DBGrid1DrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if Query.FieldByName('fecha').AsDateTime = Date then
  begin
    DBGrid1.Canvas.Brush.Color := clRed;
    DBGrid1Canvas.Font.Color := clWhite;
 
    DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
  end;
end;

Saluditos