El control del bucle debe ser con una variable local

[rafita]

Realmente no puedo ayudarte, pero me da la impresión de que el error no está ahí porque ese trozo de código no tiene errores y funciona perfectamente

 
procedure TForm1.ProbarClick(Sender: TObject);
var  I, ItemsCount: Integer;
Begin
  ItemsCount:=8;
  For I := 0 to (ItemsCount - 1) do
     ShowMessage('Ahora i = ' + IntToStr(i));
end;

Un consejo: cuando compilas te muestra todos los errores, pero a veces el primero no es el que tienes que corregir, por ejemplo, si en el bucle anterior quitas los dos puntos (

 
for i=0 to (itemscount -1) do

el primer error que te da es que la variable del bucle debe ser una variable local,
pero el segundo error te dice que los tipos Integer y Boolean son incompatibles.
Ambos son en la misma línea, pero es el segundo el que te da la pista para encontrar el problema.

Suerte