FNC BLox - VCL SVG Custom Block Demo Crashes

When running the code :-:

procedure TForm1.TMSFNCBloxControl1RegisterElements(Sender: TObject);
begin

RegElementList.Clear;

///////RegisterElement(TSolarPanelBlock, '', 'Solar Panel', 'All SVG Blocks');
RegisterElement(TConverterBlock, '', 'Converter', 'All SVG Blocks');<=THIS CREATES THE AV
end;

It creates an AV. See screenshot below :-

It appears to by that the ElementID is set to a random block of characters :-

procedure TTMSFNCBloxCustomSelector.DrawItemContent(AGraphics: TTMSFNCGraphics;
ADisplayItem: TTMSFNCBloxSelectorDisplayItem);
.......

  if Assigned(it.RegistrationElement) then
  begin
    if not Assigned(it.FRegistrationElementCache) then
      it.FRegistrationElementCache := it.RegistrationElement.ElementClass.Create; <==== AV CRASH

end;

Is this when you start the demo?
Because we are not able to reproduce this issue locally.

Do you have the same issue with the Draw Custom Blocks demo?

yes, it crashes in Draw Custom BLocks demo aswell. Im running Ddelpgi 10.4 SP 1.

Code used :-

constructor TConverterBlock.Create;
var
** w, h: Double;**
begin
** inherited;**

** w := OriginalRect.Right - OriginalRect.Left;**
** h := OriginalRect.Bottom - OriginalRect.Top;**

** LinkPoints.Clear;**
** LinkPoints.AddLink(0, h / 4, aoLeft);**
** LinkPoints.AddLink(0, 3 * h / 4, aoLeft);**
** LinkPoints.AddLink(w, h / 2, aoRight);**
end;

procedure TConverterBlock.GetBlockPath(APath: TTMSFNCBloxPath; ADrawer: TTMSFNCBloxBlockDrawer);
var
** poly: TTMSFNCBloxPointArray;**
** w, h: Double;**
begin
** inherited;**
** APath.Reset;**

** w := OriginalRect.Right - OriginalRect.Left;**
** h := OriginalRect.Bottom - OriginalRect.Top;**

** APath.AddLine(0, h/4, w/4, h/4);**
** APath.CloseFigure(False);**

** APath.AddLine(0, 3 * h / 4, w/4, 3 * h / 4);**
** APath.CloseFigure(False);**

** APath.AddLine(w/4, 0, w/4, h);**
** APath.AddLine(w/4, 0, w/2, 0);**
** APath.AddArc(w/4, 0, w/2, h, 270, 180);**
** APath.AddLine(w/2, h, w/4, h);**
** APath.CloseFigure(False);**

** APath.AddLine(3 * w / 4, h / 2, w, h / 2);
end;

Blank out the code RegElementList.Clear and the code runs fine, although it now shows ALL block items, which is not want I required :-

procedure TForm1.TMSFNCBloxControl1RegisterElements(Sender: TObject);
begin

///RegElementList.Clear; <- WHEN THIS IS BLANKED OUT THE CODE RUNS FINE!!!

///////RegisterElement(TSolarPanelBlock, '', 'Solar Panel', 'All SVG Blocks');
RegisterElement(TConverterBlock, '', 'Converter', 'All SVG Blocks');<=THIS CREATES THE AV
end;

Please see my other topic which is linked to this.