Puedes acceder a las líneas del meno con:
Código Delphi
[-]
memo.Lines[0]
memo.lines[1]
....
Eso te devolverá strings.
Para convertirlos a enteros puedes hacer:
Código Delphi
[-]
i := StrToInt(memo.lines[0]);
....
Por lo tanto podrías sumar las líneas usando...
Código Delphi
[-]
result :=
StrToInt(memo.lines[0]) +
StrToInt(memo.lines[1]) +
StrToInt(memo.lines[2]) +
...
Esto te puede servir de guía; Deves tener en cuenta cuantas líneas hay en el memo; Que relamente sean números (sino la conversion con StrToInt fallará),...