[Страдалецъ]

Тогда поместите этот блок в обработчик ошибки:

Код:

try
 Memo1.Lines[0]:=ListBox1.Items[a*8];
except
 ShowMessage(Format('Обращение к элементу %d из %d',[a*8,ListBox1.Count]));
end;

Тогда хоть определитесь в чем проблема с индексом массива.