Pojemność Listbox w poziomie powyżej 4096 znaków

Mam problem z listbox1 otóż dopisuje do niego w poziomie pewne znaki znaczące dla mnie i kiedy wartość przekroczy length = 4096 wówczas operacje na tej linii daje wynik pustej linii. I kopiuje pustą linie do Listbox2. Jak zwiększyć ten zakres ?

Chce skopiować:

i : integer;
begin
i : ListBox1.Itemindex;
ListBox2.items.add(ListBox1.items[i]);
end;

Znalazłem błąd przyczyną było zastosowanie czcionki dla listbox Courier New, gdyż wszędzie ją stosowałem dla listbox dla przejrzystości wyświetlania. Czcionka samo Courier rozwiązała problem.
Temat uważam za zamknięty.