Con un componente de 1st Class lo logro en el evento OnDrawDataCell
Código Delphi
[-]
procedure TFormaAdministrarXML.wwDBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if DModuloEmpresa.FDQueryUsuarios.FieldByName('USUARIO').Value <> '' then
wwDBGrid1.Canvas.Brush.Color:= wwDBGrid1.Color
else
wwDBGrid1.Canvas.Brush.Color:= clRed;
wwDBGrid1.DefaultDrawDataCell(rect, field, state);
end;