[Thrasher]

Делаю по олд-скульному ))

Код:

function SumNumbers(S:String);
var Ch:char
I:byte;
begin
 Result:=0;
 For I:=1 to Length(S) do
   begin 
    Ch:=S[i];
    Result:=Result+Ord(Ch)-30; //(Конечно правильно Result:=Result+StrToInt(s[i]); но я предполагаю что в строке уже всё цыфры
   end;
end;