сумма цифр в Delphi

[DeDoK]

есть переменная типа string. В нее записано число, к примеру "123456". Задача - посчитать сумму всех цифр, т.е 1+2+3+4+5+6

[bitSoft]

var S : string;
      Count : integer;
      Sum   : Real;
begin
 Sum := 0;
 S := '12345';
 for Count := 0 to Length(S) do
 begin 
  Sum := Sum + StrToInt(S[Count]);
 end;
end;

[TwiX]

Почти =)

var S : string;
      Count : integer;
      Sum   : Real;
begin
 Sum := 0;
 S := '12345';
 for Count := 1 to Length(S) do
 begin 
  Sum := Sum + StrToInt(S[Count]);
 end;
end;

[bitSoft]

TwiX

ya prosta v 2-3 sec, delal, i bez delphi, vsegda oshibki bivaet