Obliczanie średniej

Jak zrobić w delphi żeby liczyło średnią z linijek w memo

1.Kategoria 'total newbie'
2.Poczytaj o StrToInt, pętli For.

A tak swoją drogą kilka tygodni temu zrobiłem coś takiego.
Pomija on błędne linijki, liczy średnią z liczb naturalnych i zmiennoprzecinkowych (kropka, a nie przecinek !).

Już przenoszę do Newbie, bo faktycznie temat tylko tam pasuje. A ja na szybko napisalem to:

var
  I, V, Code, Sum, RowCnt : integer;
begin
  Sum := 0;
  RowCnt := 0;
  for I := 0 to Memo1.Lines.Count - 1 do
  begin
    Val(Memo1.Lines[I], V, Code);
    if Code = 0 then
    begin
      Sum := Sum + v;
      RowCnt := RowCnt + 1;
    end;
  end;
  ShowMessage('Srednia: ' + FormatFloat('0.00', Sum / RowCnt));
end;