[AlexVMK111]

Создал свой модуль MyUnit.

В нем две функции:
function FindCharInStr(Str: string; Ch: char):Integer;
Function GetStrValue(Str : String; Index : Integer):String;

1) Вызываю функцию FindCharInStr из главного модуля программы:
i:= FindCharInStr(Str, ',');
После чего i равно 7. Так и должно быть.

2) Вызываю функцию FindCharInStr из функции GetStrValue:
i:= FindCharInStr(Str, ',');
После чего i равно 0. А должно быть 7!

В чем может быть моя ошибка?