Delphi - help DBgrid

como hago para colorear una fila cuando el campo de la base de datos es por ejemplo 1. utilizo Query para las busquedas

En el evento OnDrawColumnCell del Grid

var grid:TDBGrid;
begin
grid := TDBGrid(sender);
If TablaCampo.asinteger = 1 then
begin
grid.canvas.brush.color := clteal;
grid.canvas.Font.color := clwhite;
end;
grid.defaultDrawColumnCell(rect,Datacol,column,state);
end;