if Bit7.checked = true then i := i +1;
[...]
Bitte nicht auslachen, mir gefällt es selbst nicht.
Mir auch nicht. Sofort stieß mir "Bit7.checked = true" und ff. auf. Probiere mal aus, was passiert, wenn Du "= true" und ff. wegläßt.
Für i:=i+1 gibt es auch den Inkrementor inc(i).