Возвращается TStrings, но проверки на возвращаемое значение нигде нет. И в таком случае Вы несколько изменили оригинальный код. Там StringList является глобальной переменной и в функции он только очищается. У Вас же при каждом вызове идёт новое создание и ни одного деструктора.
|