Autoseleccion en Tlistbox - Delphi 7 -

[ArtPortEsp]

Voy a tratar de explicarme un poco mas:

Código Delphi [-]
     for x:=0 to Archivos.Items.Count-1 do
          Archivos.Selected[x] := cbseleccionar.checked;

Con un listbox y un checkbox consigo "seleccionar" todos los items... hasta aquí todo normal....

Pero quisiera implementar un método que, si agrego nuevos items al listbox en donde ya están seleccionados todos, los nuevos elementos aparezcan también seleccionados.

Aunque es muy sencillo seleccionar y quitar la seleccion a los items con el checkbox, los usuarios no quieren "molestarse" en hacer dos click para seleccionar los items que se agregan.