kalapanga

Тут гадать не нужно - используйте отладку! Возьмите небольшой текст для примера и пошагово пройдитесь по этим Вашим циклам. Там и увидите почему и какое условие не сработало.

OnChange ?

А с чего вдруг div - это деление с остатком? Совсем наоборот.

Какой-такой Integer, когда:

property TraceList[Index: Integer]: TZLoggingEvent read GetTraceItem;

А уж у TZLoggingEvent-а выбирай чего нужно:

function AsString(LoggingFormatter:IZLoggingFormatter = nil): string;

property Category: TZLoggingCategory read FCategory;
property Protocol: string read FProtocol;
property Message: string read FMessage;
property ErrorCode: Integer read FErrorCode;
property Error: string read FError;
property Timestamp: TDateTime read FTimestamp;

AsString небось самое оно и будет

Так Вам никто ничего не сможет подсказать. Есть ошибки компиляции. Компилятор при этом указывает на строку, в которой ошибка и пишет, что ему в ней не нравится. И есть ошибки времени выполнения. Вы запустили программу, и в процессе работы бац - ошибка. Если Вы запустили программу под отладчиком, то и в этом случае Вам укажут строку с ошибкой. В первую очередь нужно прочитать и попытаться понять сообщение об ошибке, возможно сами всё исправите. Не получилось - давайте его (сообщение об ошибке) сюда. Вот, мол, в строке такой-то ошибка такая-то, объясните плиз, что это значит.
Или под ошибкой Вы понимаете, что всё компилируется и работает, но делает не то, что Вы хотите? Тогда описывайте что должно быть, а что реально получилось.

Привели бы Вы лучше весь реальный код, который не работает, по этим кусочкам можно только гадать, как на кофейной гуще. А то более чем странно получается, говорить об ошибке при работе с массивом и не привести объявление массива. Тем более, что Вы сами пишете, что ошибка там. Выделите такой минимальный кусок кода, работа которого приводит к ошибке, но который можно скопировать себе, скомпилировать, запустить и посмотреть на ошибки. А может и без этого всё понятно будет.