Memberi warna DBGrid

Contoh memberi warna pada komponen DBGrid dengan nama komponen DBGrid1 :

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
//Memberi warna $00E9D358 jika data population dalam tabel1 > 25000000
if Table1.FieldByName(‘Population‘).AsInteger > 25000000 then
TDBGrid(Sender).Canvas.Brush.Color := $00E9D358;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;