[Drozh]

Думаю нужно так:

Код:

...
 for i := 0 to l1-1 do
  a[i]:= StrToFloat(Memo1.Lines[i]);

 for i := 0 to l1-1 do
  Memo3.Lines.Add(FloatToStr(a[i]));