[icWasya]

На вскидку

Код:

result:=Copy(str, 1, StrToInt(str[i]));

если в str[i] - какая-нибудь цыфра, а иначе смотреть, какого типа result, что именно записано в строке, и возможно код всей функции.