Porque ocurre esto?

[paquechu]

Buenas,
Trabajando con un TCheckListBox (con 7 líneas solamente), en un bucle de unos 14 millones de iteraciones, al preguntar por el estado de uno de los elementos del checklistbox, el proceso se ralantiza muchisimo, sin embargo haciendo la misma pregunta en una variable de tipo bool es muy rpaído..

El caso que os comento que es muy lento

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

El caso rapido

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

Se os ocurre porqué?
Saludos :-)