[rgstuamigo]

Pues yo para pintar la fila que tiene actualmente el foco lo hago así:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
      if (gdSelected in State) then //si la actual columna está seleccionada
       begin
        (Sender as TDBGrid).Canvas.Brush.Color:=clBlack;//pinto el fondo
        (Sender as TDBGrid).Canvas.Font.Color:=clRed;//cambio el color de la fuente                 
       end
end;

Espero sea de ayuda....
Saludos...