Delphi モバイル コンパイラは、組込アセンブラをサポートしていません。

Delphiのモバイル用コンパイラは組み込みアセンブラをサポートしていません。
そのかわりに アトミック組み込み関数が用意されています。

関数名 用途
System.AtomicExchange メモリ値の交換に使用
System.AtomicIncrement メモリ値のインクリメントに使用
System.AtomicCmpExchange メモリ値の比較および交換に使用
System.AtomicDecrement メモリ値のデクリメントに使用
firemonkey_test.pas
var
  [volatile] i1: Integer;

class function TForm1.func(f1: TFunc<Integer, Integer>): Integer;
begin
  Result  := f1(100);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i1  := 0;
  Edit1.Text  := IntToStr(
    func(function (Value: Integer): Integer
      begin
        Result := AtomicIncrement(i1, Value);
      end));
end;