Получить ASCII код

[KUM25]

Всем привет... Столкнулся с такой проблемой. Никак не могу решить. На форме есть DateTimePicker. При выборе даты, мне нужно посчитать сумму ASCII кодов каждой цифры выбранной даты без точек. Например: дата 16.06.2014. ASCII коды цифр:
"1"-49,
"6"-54,
"0"-48,
"6"-54,
"2"-50,
"0"-48,
"1"-49,
"4"-52

Сумма равна - 404

Заранее благодарю за ответ. Если можно кусочек кода с определением переменных и их типов

[BDA]

FormatDateTime('ddmmyyyy', DateTimePicker1.DateTime)

Осталось пройтись циклом по полученной строке и сложить коды.

[KUM25]

Сообщение от BDA

FormatDateTime('ddmmyyyy', DateTimePicker1.DateTime)

Осталось пройтись циклом по полученной строке и сложить коды.

У меня не получается из string получить ASCII код

[BDA]

inc(sum, ord(s[i]));

Где s - строка, i - индекс символа в строке.

[Serge_Bliznykov]

позволю дополнить ответ BDA развёрнутым кодом в качестве иллюстрации:

var s : AnsiString;
  i, sum : integer;
begin
  s := FormatDateTime('ddmmyyyy', DateTimePicker1.DateTime);
  sum := 0;
  for i := 1 to Length(s) do Inc(sum, ord(s[i]));

  // готово. результат в переменной sum
end;