Az alábbi példában a DBGrid OnDrawColumnCell eseményével a feltétel(ek)nek megfelelő cellákat
fogjuk más színnel jelölni. 
Hozz létre egy új Formot. Helyezz rá egy TTable, egy DataSource és egy DBGrid komponenst. 
A TTable mutasson az EMPLOYEE.DB adatbázisra a DBDEMOS 'adatbázis-csoportban'. 
A DataSource mutasson a TTable-re, a DBGrid pedig a DataSource-re. 
Másold az alábbi kódot a DBGrid OnDrawColumnCell eseményébe:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; 
     Column: TColumn; State: TGridDrawState);
var holdColor: TColor;
begin
   holdColor := DBGrid1.Canvas.Brush.Color; {eltárolja az eredeti színt}
   if Column.FieldName = 'EmpNo' then {csak az EmpNo oszlopban}
   if (Column.Field.AsInteger mod 2 <> 0) then {ha páratlan}
   begin
     DBGrid1.Canvas.Brush.Color := clGreen;
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     DBGrid1.Canvas.Brush.Color := holdColor;
   end;
end;

Tehát a fönti eljárás az EmpNo oszlopban a páratlan értéket tartalmazó cellákat zöldre 'festi'.
Ennek során a TCustomDBGrid komponensben (amely a TDBGrid-nek a 'szülője') meghatározott
DefaultDrawColumnCell eljárást használja.