[marcoszorrilla]

Prueba con este código:

Código Delphi [-]

var
  Form1: TForm1;
  
        type
  TCustomDBGridCracker = class(TCustomDBGrid);   {Le poneis el nombre que querais}
implementation

{$R *.DFM}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with TCustomDBGridCracker(Sender) do begin
    if DataLink.ActiveRecord = Row - 1 then begin
      Canvas.Brush.Color := clHighLight;
      Canvas.Pen.Color := clHighLightText;
    end;

    DefaultDrawColumnCell(Rect, Datacol, Column, State);
  end;
end;

Un Saludo.