En el evento OnDrawColumnCell del dbGrid hago algo similar a lo siguiente:
Código Delphi
[-]
procedure TFPrincipal.DBGListarAgendaDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if Column.Field.Dataset.FieldbyName('alarma1').AsInteger = 1 then
begin
if (gdFocused in State) then
DBGListarAgenda.canvas.brush.color := clBlack
else
begin
DBGListarAgenda.canvas.brush.color := clColorAlarma1;
end;
end;
.....
end;