Как посимвольно считать из поля edit

[ULR]

Здравствуйте! Извините если вопрос глупый, но очень нужна помощь! В поле edit вводится любое слово, нужно получить ASCII-код каждого символа этого слова и записать эти коды в поле memo столбиком. Подобные вопросы задавались, но не совсем то) Если Вам не сложно помогите пожалуйста!))

[Mad_Cat]

S:=edit.text;// s-string
for i:=1 to length(s) do //i-integer
memo.Lines.add(inttosstr(ord(s[i])));

[ULR]

Спасибо большое при большое)))