работа в memo1

[Пяtnышк0]

условие задания: нужно,что бы в memo1 например: 12345
56548
была подсчитана сумма последнего столбца..
помогите пожалуйста,в этом деле еще зеленая*)зарание спасибо*)

[Кольша]

var
i,l,e:integer;
s:string;
begin
s:=memo1.lines[memo1.lines.count-1];
l:=length(s);
e:=0;
for i:=1 to l do
e:=e+strtoint(s[i]);
showmessage(inttostr(e));
end;
///P.S должны быть только цифры или обрабатывать,код может косячить писал от руки