В строке с ошибкой используйте вместо LChars:= LChars + Stroka[i];
процедуру Include Include(LChars, Stroka[i]);
Еще есть такая форма записи через оператор + LChars:= LChars + [Stroka[i]];
Я лично на гитаре играю:)
Музыкальные инструменты очень хорошо помогают отвлечься от грубых технических дисциплин и на некоторое время посветить себя прекрасному. :)