[dec]

Hola,

Tal vez esto podrá servirte:

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  var
    trackStyles: TListHotTrackStyles;
  begin
    // Activamos la opción
    ListView1.HotTrack := true;
  
    // Recuperamos los estilos
    trackStyles := ListView1.HotTrackStyles;
  
    // Añadimos un determinado estilo
    ListView1.HotTrackStyles := trackStyles + [htHandPoint];
  
    // Quitamos un determinado estilo
    ListView1.HotTrackStyles := trackStyles - [htUnderlineCold];
  
    // Añadimos dos estilos a un tiempo
    ListView1.HotTrackStyles := trackStyles + [htHandPoint, htUnderlineCold];
  end;

Actualización: Otra forma de hacerlo podría ser esta:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
   trackStyles: TListHotTrackStyles;
 begin
   // Por ejemplo
   if True then
     // Añadimos
     Include(trackStyles, htHandPoint)
   else
     // Quitamos
     Exclude(trackStyles, htHandPoint);
   // Y por último asignamos
   ListView1.HotTrackStyles := trackStyles;
 end;