Считать с мемо

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,ComObj,
  ValEdit;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Accept: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  FName:string;
  str:TStringList;
  a:array[1..60] of double;
  b:array[1..60] of double;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
 
procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer;
begin
  if (memo1.text='') and (memo2.text='') then showmessage('Вы не ввели значения') else
  begin
    for i:=1 to  length(memo1.Text) do
    begin
        a[i]:= StrToFloat(memo1.Lines[i]);
    end;
    for i:=1 to  length(memo1.Text) do
    begin
        b[i]:= StrToFloat(memo2.Lines[i]);
    end;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  label1.Caption:='Введите выборку 1';
  label2.Caption:='Введите выборку 2';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Clear;
end;
 
 
 
end.

procedure Fill_Array(L : TStrings; var Arr : array of double);
var
  s : string;
  i : integer;
begin
  // тут же можно проверить, хватит ли емкости массива,
  // чтобы вместить все данные (if L.Count < High(Arr))
 
  i := 0;
  for s in L do
  begin
    Arr[i] := StrToFloatDef(s, 0);
    Inc(i);
  end;
end;

var
  a:array[1..60] of double;
  b:array[1..60] of double;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Fill_Array(Memo1.Lines, a);
  Fill_Array(Memo2.Lines, b);
end;