[loxod]

Si lo que quieres es que un DBGrid cambio el color del renglo seleccionado, esto te puede servir:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   If (gdFocused in State)
    then dbgrid1.canvas.brush.color := clYellow;

dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;