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
Código:
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 (
Código:
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