[[duilioisola]]

Como te han comentado, se hace lento porque tiene que acceder a varias capas de abstracción (VALOR de una PROPIEDAD de un OBJETO).

Podrías solucionarlo así:

Código Delphi [-]
i:=0
chk := checklistbox.checked[i]
While i<=14000000 do
begin
         if chk then
         begin
                /// acciones
         end
         inc(i)
end;