[Neftali [Germán.Estévez]]

Añade éste cambio al pricipio del procedimiento:

Código Delphi [-]
 begin
   // Cambiar el color de los selccionados
   if (odSelected in State) then begin
     ListBox1.Canvas.Brush.Color := clGreen;
   end;
 
 ...