[angvelem]

Поставь курсор на строку

Код:

if(Pos(substr, s) > 0) then

и запускай программу по F4, передвинь курсор на s и посмотри значение твоей строки. Функция Copy, здесь не причём. Косяк в приходящей строке.