[AlexSku]

Запустил задачку, у меня процессор был занят на 60% пока перересовывались Memo. Но так и должно быть вы же делаете перересовку 10 тыс. раз. Лучше сначала сформировать невидимый TStrings, а потом его передать в Memo.