А в функции на какой строке?

Код ужасен, его невозможно читать.
Юзай регулярки. А если хочешь сэкономить память то создавай объект регулярки перед использованием и сразу уничтожай.
Кстати, установи себе EurekaLog, подключи к проекту и все утечки как на ладони, профит.

Ок пасмотрим)
в принцыпе немного изменив код(сразу вставил в кнопку) нашол проблемму, она вылетает на строке sk := TStringList.Create;