Раскраска строк грида

[$T@LKER]

Есть у меня реализация как красить строки грида. Тока не знаю на сколько она хороша хотя в принцыпе работает. Прошу посмотреть и подсказать шо не так, и что может нужно поменять. Идея в том, что в программе был режим отвечания определенных строк в гриде цветом.

procedure TMainWindow.cxArendaViewCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

var
 ARec: TRect;
 ATextToDraw: String;
 ColumnID: integer;
  Cellvalue : variant;
  i:integer;

begin

if (ObToColor = True)
    then begin
     if Label4.Caption <> 'XXX'
      then begin
        ColumnID := cxArendaView.GetColumnByFieldName('ID').Index;
        Cellvalue := AViewInfo.GridRecord.Values[ColumnID];
         if Cellvalue= strtoint(Label4.Caption) then
         begin           
           ACanvas.Canvas.Brush.Color := clRed;          
         end;
      end;
  end
    else if (ObToColor = False)
      then begin
       if ObColMemo.Lines.Count > 0 then begin
       for i := 0 to ObColMemo.Lines.Count do
        begin
         try
          ColumnID := cxArendaView.GetColumnByFieldName('ID').Index;
          Cellvalue := AViewInfo.GridRecord.Values[ColumnID];
           if Cellvalue= strtoint(ObColMemo.Lines[i]) then
           begin
             ACanvas.Canvas.Brush.Color := clRed;
           end;
          except
             Continue;
            end;
        end;
       end;
      end;
end;