Hola RoyTan,
Una manera de recorrerlo es emplear for:
Código Delphi
[-]
suma := 0;
for i:= 0 to Memo1.Lines.Count - 1 do
inc(suma, StrToInt(Memo1.Lines[i]);
Lo puse de memoria, no tengo Dephi a mano en estos momentos.
Ivan.... no se vale... yo estaba respondiendo al chico... XD.
Saludos,