Проверил на Андроиде. Delphi 10 Seattle Update 1.

А будущий компилятор для линукса обещает быть ARC enabled по дефолту...
[RSP-13934]
Procedure Run;
Var
Proc : Procedure Of Object;
Begin
TObj.Create('1'); // will be destroyed
TObj.Create('2').Test; // will be never destroyed
Proc := TObj.Create('3').Test; // will be never destroyed
End;
А будущий компилятор для линукса обещает быть ARC enabled по дефолту...
[RSP-13934]