[alladin]

мне нужно определить длину цисла в строке для этого я намутил такое

function razrad (c:string):integer;
var
i,e:integer;
begin
for i:=7 to 10 do begin
try
e:=strtoint(c[i]); //но она возврашается сюда, а потом опять в except
except
e:=0;
result:=(i-1);
exit; // сдесь по идеи функция должна вырубится
end;
end;

end;
получается зацикливание подскажите пожалуйста что не так