Ошибка при возведении символа строки в степень: " " is an invalid float

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  a:array[0..9] of real;
  i:integer;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  for i:=0 to 9 do
      begin
        a[i]:=strtofloat(memo1.lines[i]);
        a[i]:=sqr(a[i]);
        memo2.lines.append(floattostr(a[i]));
      end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  memo1.lines.clear;
  memo2.lines.clear;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to 9 do
  begin
    try
      a[i]:=strtofloat(memo1.lines[i]);
      a[i]:=sqr(a[i]);
      memo2.lines.append(floattostr(a[i]));
    except
      ShowMessage(Format('Ой. Значение memo1.lines[%d] без звездочек равно *%s*',[i,memo1.lines[i]]));
    end;
  end;
end;

a:array[0..9] of Double;

var
  Form1: TForm1;
  DblArr: array [0..9] of Double;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
    SqrDbl: Double;
begin
  Memo1.Clear;
  Memo2.Clear;
 
  for i := Low(DblArr) to High(DblArr) do
  begin
    DblArr[i]:= Random + Random(10);
    SqrDbl:= sqr(DblArr[i]);
    Memo1.Lines.Add(FloatToStr(DblArr[i]));
    Memo2.Lines.Add(FloatToStr(SqrDbl));
  end;
 
end;