Как реализовать динамическое построение графика в Delphi по данным с Arduino uno?

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, CPort, CPortCtl,
  VclTee.TeeGDIPlus, VCLTee.TeEngine, Vcl.ExtCtrls, VCLTee.TeeProcs,
  VCLTee.Chart, VCLTee.Series, Vcl.Grids, Data.DB, VCLTee.TeeData;
 
type
  TForm1 = class(TForm)
    ComPort1: TComPort;
    Memo1: TMemo;
    Button1: TButton;
    Button3: TButton;
    Button2: TButton;
    Chart1: TChart;
    Series1: TFastLineSeries;
    procedure ComPort1RxChar(Sender: TObject; Count: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
   // procedure Memo2Change(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ComPort1.ShowSetupDialog;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
ComPort1.Open;
Memo1.Clear;
end;
 
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  S:string;
  x,y: real;
begin
  ComPort1.ReadStr(S, Count);
  Memo1.Text:=Memo1.Text+S;
  x:=i;
  y:=StrToFloat(Memo1.Lines.Strings[i]);
  Series1.AddXY(x,y,'',clred);
  i:=i+1;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
ComPort1.Close;
end;
 
end.

Memo1.Lines.Add(S);

ComPort1.ReadStr(S, Count);
Memo1.Lines.Add(S);
x := Memo1.Lines.Count - 1;
y := StrToFloat(Memo1.Lines[Trunc(x)]);
Series1.AddXY(x, y, '', clRed);

procedure TForm1.Timer1Timer(Sender: TObject);
var
  X: Integer;
  Y: Double;
begin
  X := Series1.XValues.Count;
  while X < Memo1.Lines.Count do
  begin
    if TryStrToFloat(Memo1.Lines[X], Y) then
    begin
      Series1.AddXY(X, Y, '', clRed);
      inc(X);
    end else
    begin
      ShowMessage(Memo1.Lines[X] + ' не является числом!');
      Break;
    end;
  end;
end;