procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
   begin

  with TCustomDBGridCracker(DBGrid1) do
  if DataLink.ActiveRecord = Row - 1 then
      Canvas.Brush.Color := clred
    else
    Canvas.Brush.Color := clwhite;
    DBgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

dbgridin properties özelliklerinden options seçeneğinin altındaki
dbediting false
dgcolumn resize false
dgrowselect true
dgmultiselect true

olacak

ama soruyu soralı baya zaman olmuş inşallah sen çözmüşsündür

bende bu şekilde bir projemde kullanmıştım ama istediğin bu değilse tekrar elimden geldiğince yardımcı olmaya çalışırım.