[Karsh]

А у меня такая штука получилась...

Код:

function XPower(const x, y: Integer): Integer;
var
  i: Integer;
begin
  Result:= x;
  i:= 1;
  while i < y do
  begin
    Result:= Result * x;
    Inc(i);
  end;
end;

function sti(s: string): int64;
var
  i, j, l, x: integer;
  f, y: int64;
begin
  f:= 0; j:= 0;
  x:= Ord('0');
  l:= Length(s);
  for i:= l downto 1 do
  begin
    y:= (Ord(s[i]) - x);
    if j > 0 then y:= y * XPower(10, j);
    Inc(f, y);
    Inc(j);
  end;
  Result:= f;
end;

З.Ы. А чем вас функция Val не устраивает?