Delphi Mac OSX 64bit - catching exceptions with try..except not working

Question

I am using Delphi 10.3 to develop an application for Mac OSX Big Sur 64-bit.

I have run into a problem trying to catch exceptions, and I cannot find the solution.

When an exception occurs, the execution cycle does not go into the try/except. It seems that the RTL gives an error when raising the Exception, triggering a new 'Access Violation' exception that goes into a loop.

Below, you can find the test code that produces the problem:

Unit8;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm8 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function Str2Float(str : String) : Extended;

var
  Form8: TForm8;

implementation

{$R *.fmx}

procedure TForm8.Button1Click(Sender: TObject);
var
  f : extended;
begin
  f:=str2float('10,7');
  ShowMessage ('Resultat : '+floattostr(f));
end;

function Str2Float(str : String) : Extended;
var
  dec : Char;
begin
  result := 0;
  if length(str) > 0 then begin
    dec := FormatSettings.DecimalSeparator;
    FormatSettings.DecimalSeparator := '.';
    try
      result := strtofloat(str);
    except
      on e : Exception do begin
        FormatSettings.DecimalSeparator := ',';
        try
          result := strtofloat(str);
        except
          on e : Exception do begin
            result := 0;
          end;
        end;
      end;
    end;
    FormatSettings.DecimalSeparator := dec;
  end;
end;

end.

Exception that is thrown:

And the state of the Call Stack when the exception is thrown: