Delphi 7 DBGrid

Как сделать так, чтобы при нажатие кнопки закрашивала строчку в ней DBGrid , если значение определенного столбца больше нуля..

 

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Datamodule2.Table1.FieldByName('Dolg').AsInteger>0 then
DBGrid1.Canvas.Brush.Color:=clred;
DBGrid1.DefaultDrawColumnCell
(Rect, DataCol, Column, State);
end;

че-то не работает хотя раньше похало

 

вот переделай под свой грид

PHP:

procedure TForm1.sDBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;    DataCol: Integer; Column: TColumn; State: TGridDrawState);
  begin
if TDBGrid(Sender).DataSource.DataSet.FieldByName('strana').AsString='Пендосия'
 then      sDBGrid2.Canvas.Brush.Color := $003535FF 
  else      sDBGrid2.Canvas.Brush.Color := $00BFFFBF;     sDBGrid2.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;