работа с Memo

[eva-2030]

Добрый вечер. Кто подскажет как подсчитать сумму и среднее арифметическое чисел, выведенных в столбик в Memo?

[Sparkman]

var i, code, n : integer;
    _sum, _avg, _tmp : real;
begin
     _sum := 0;
     _avg := 0;
     n:=0;
     for i := 0 to Memo1.Lines.Count-1 do
     begin
          val(Memo1.Lines.Strings[i], _tmp, code);
          if code = 0 then
          begin
               _sum := _sum + _tmp;
               inc(n);
          end;
     end;
     _avg := _sum / n;
     ShowMessage('Sum = ' + FloatToStr(_sum)+#13+
                 'Avg = ' +  FloatToStr(_avg));
end;