Это у вас для .NET? Меня вот эта конструкция смущает "Str.Chars[i]".
Но я хочу вот что сказать. Начиная с древнего какого-то Паскаля в нем есть такая функция Pos. Она возвращает позицию заданного символа в строке. Это то, что делает ваша первая функция (FindCharInStr), т.е. она не нужна. Что делает вторая - я не понял, поэтому сказать тут ничего не могу. Вообще, советую прежде чем начинать писать своё, посмотреть среди стандартных функций, их очень много написано, тем более для таких элементарных операций.
Ну и раз уж я начал советы раздавать
: не вызывайте в цикле Length(S). Запишите эту длину строки в переменную и используйте ее в качестве границы цикла:
Код:
L := Length(S);
for i := 1 to L - 1 do begin
...
Строки - они длинные бывают, зачем вам миллион раз вызывать функцию, которая миллион раз возвратит одно и то же значение.