<p>以下はDelphi付属の｢DBDEMOS｣にある「COUNTRY」データベースを、グリッドに表示した場合のサンプルです。<br />
人口が2千万人を超える国ついては、人口が赤色で描画されます。</p>
<pre class="code">
<span class="key">procedure</span> TForm1.DBGrid1DrawColumnCell(Sender: TObject); 
<span class="key">const</span> Rect: 
  TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); 
<span class="key">begin</span> 
  <span class="key">if</span> Table1.FieldByName('Population').AsInteger &gt; 20000000 <span class="key">then</span>
  <span class="key">begin</span>
    TDBGrid(Sender).Canvas.Font.Color := clRed;
  <span class="key">end</span>;
  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State); 
<span class="key">end</span>; 
</pre>