Доброго времени суток! у меня такая проблема. Нужно зачеркнуть строку DBGrida отвечающию какому либо условию. Например если поле ID = 1 тогда строка зачеркивается а если не равно 1 тогда не зачеркивается.

Ну раз нужно, то зачеркивай.

так примерно

procedure TfrmContract.gdContract onDrawCell
....
begin
...
 dt := gdContract.DataSource.DataSet.fieldbyName('DATE_END').AsDateTime;
 if int(dt) < int(now) + 1  then
         begin //Просрочены
           gdContract.Canvas.Brush.Color := clRed;
           gdContract.defaultdrawcolumncell(rect, datacol, column, state);
           Exit;
         end;

 if int(dt) < int(now) + 7 then
         begin // скоро просрочатся
             gdContract.Canvas.Brush.Color := clYellow;
             gdContract.defaultdrawcolumncell(rect, datacol, column, state);
             Exit;
         end;
 // нормальные
 gdContract.Canvas.Brush.Color := clLime;
 gdContract.defaultdrawcolumncell(rect, datacol, column, state);
end;