Warna Colom Pada DBGrid

procedure TGridForm.DBGridDrawColumnCell(

Sender: TObject;

const Rect: TRect;

DataCol: Integer;

Column: TColumn;

State: TGridDrawState) ;

var

grid : TDBGrid;

row : integer;

begin

grid := sender as TDBGrid;

row := grid.DataSource.DataSet.RecNo;

if Odd(row) then

grid.Canvas.Brush.Color := clSilver

else

grid.Canvas.Brush.Color := clDkGray;

grid.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;

end; (* DBGrid OnDrawColumnCell *)