Warna Baris Pada DBgrid

procedure TForm1.DBGrid1DrawColumnCell

(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin

if Table1.FieldByName(Nama field table).AsCurrency>36000 then

DBGrid1.Canvas.Font.Color:=clMaroon;

DBGrid1.DefaultDrawColumnCell

(Rect, DataCol, Column, State);

end;