Как преобразовать строку в число?

Пример написания собственной функции преобразования строки в LongInt число, аналогичной штатной процедуре VAL:

Function Val(s:string):Longint;
var i:byte; l:longint;
begin
  l:=0;
  for i:=1 to length(s) do l:=l*10+byte(s[i])-48;
  Val:=l;
end;