delphi Memo里的数据相加求和？

Question

delphi Memo里的数据相加求和？
比如：
1
2
3
EDIT显示和数：6

Answer 1

 var n,i:integer;
begin
  for i := 0 to memo1.lines.count - 1 do
  begin
     n = n + StrToInt(memo1.lines[i]);
  end;
    edit1.Text = IntToStr(n);
end;