среднеарифметическое число в memo поле

[V0L40K_21]

здравствуйте,у меня такая задача у меня есть числа в memo поле..на одной строке одно число количество строк мне известно..вопрос как найти среднеарифметическое этих чисел вот код программы(недоделанный)

var
  Form1: TForm1;
  a:array [1..16] of integer;
  d:array of real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s,i,n,c,s1,l:integer;
    res:real;
begin
memo1.Clear;
memo2.Clear;
for i:=1 to 16 do begin
randomize;
n:=random(100)-50;
memo1.lines.add(IntToStr(n));
if n>0 then begin
memo2.Lines.add(IntToStr(n));
end;
end;
c:=memo2.Lines.Count;
memo2.Lines.add('Êîëè÷åñòâî ÷èñåë '+IntToStr(c));
setlength(d,c);

end;

end.

[GetMax]

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Byte;
  sum,rowcount:Integer;
begin
  Sum:=0;
  for i := 0 to Memo1.Lines.Count -1 do
  Begin
    Sum:=Sum + StrToInt(Memo1.Lines[i])
  End;
  rowcount:=Memo1.Lines.Count - 1;
  Memo2.Lines.Add(FloatToStrF(Sum / rowcount ,ffFixed,4,2))
end;

[V0L40K_21]

Сообщение от GetMax

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Byte;
  sum,rowcount:Integer;
begin
  Sum:=0;
  for i := 0 to Memo1.Lines.Count -1 do
  Begin
    Sum:=Sum + StrToInt(Memo1.Lines[i])
  End;
  rowcount:=Memo1.Lines.Count - 1;
  Memo2.Lines.Add(FloatToStrF(Sum / rowcount ,ffFixed,4,2))
end;

попробовал записать на вторую кнопку...срариф находит только не праильно((