График в потоке

type
  TMainForm = class(TForm)
    btnPlotGraph: TButton;
    chtGraph: TChart;
    lnsrsGraph2DMainSeries: TLineSeries;
    tmrAnimationDelay: TTimer;
    procedure btnPlotGraphClick(Sender: TObject);
    procedure tmrAnimationDelayTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  MainForm: TMainForm;
 
implementation
 
{$R *.dfm}
 
procedure TMainForm.btnPlotGraphClick(Sender: TObject);
begin
  ThreadForPlotGraph := ANewThread.Create(False);
  ThreadForPlotGraph.Priority := tpNormal;
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
  tmrAnimationDelay.Enabled := False;
end;
 
procedure TMainForm.tmrAnimationDelayTimer(Sender: TObject);
begin
  ThreadForPlotGraph.Resume;
end;
 
end.

unit ANewThreadClassUnit;
 
interface
 
uses
  System.Classes;
 
type
  ANewThread = class(TThread)
  protected
    procedure Execute; override;
    procedure PlotGraph;
  private
 
  end;
 
var
  ThreadForPlotGraph : ANewThread;
 
implementation
 
  uses
    PlotGrahInThread_MainUnit;
 
procedure ANewThread.PlotGraph;
const
  aStart = 1; aEnd = 6;
var
  y, x , b : Real;
  a : Integer;
begin
  b := 2;
  for a := aStart to aEnd do begin
    if a mod 2 = 0 then begin
        x := 0;
        while x <= 2 do begin
          y := x*x + a;
          MainForm.lnsrsGraph2DMainSeries.AddXY(x,y);
          x := x + 0.1;
        end;
        MainForm.tmrAnimationDelay.Enabled := True;
        ThreadForPlotGraph.Suspend;
    end
    else begin
        x := 0;
        while x <= 2 do begin
          y := a*x + b;
          x := x + 1;
        end;
    end;
 
 
  end;
 
end;
 
procedure ANewThread.Execute;
begin
  Synchronize(PlotGraph);
end;
 
end.