Цитата Сообщение от Gans Посмотреть сообщение
Объявите
i : byte;
как
i : Word;
Должно помочь :-)
все четко, спасибо