[KOOL]

немного не так...даже совсем не так. а вот так правильно:

Код:

function StringToInt(s:string):integer;
var i, r:integer;
begin
r:=0;
for i:=Length(s) downto 1 do
  begin
    if (s[i] in ['0'..'9'])then
      r:=r+ (Ord(s[i])-Ord('0'))*Round( Exp( (Length(s)-i)*Ln(10) ) )
    else
      begin //в строке не число
        r:=0;
        break;
      end;
  end;
Result:=r;
end;

а если так как сказал lmikle то строка 33 например станет числом 6