高分求助：请问以下程序那里有问题。 ( 积分: 100 )

sepchar:='';
FunctionTforml．GetSubStrNum（aString：String；SepChar：String）：Integer；
var
i：Integer；
StrLen：Integer；
Num：Integer；
begin
StrLen：=Length（aString）；
Num：=0；
for i：=1 to StrLen do
if Copy（aString，i，1）=SepChar then
Num：=Num＋1；
GetSubSrtNum：=Num；
end：
调用函数GetSubStrNum('09:30 4.900 525 S',SepChar)之后为什么字符串总数为3个呀？

kkk

搞定问题。
Num：=1；
就可以了。
这是一个根据sepChar为分割符求字符串个数的函数，
调用函数GetSubStrNum('09:30 4.900 525 S',SepChar)正确的值应为4