Why does Format reject procedure address arguments starting with XE4

Question

Consider this program:

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

procedure Foo;
begin
end;

type
  TProcedure = procedure;

const
  FooConst: TProcedure =         


        

Answer 1

I believe that this is a compiler bug and have submitted a QC report: QC#127814.

As a work around you can use either of the following:

1. Use addr() rather than the @ operator.
2. Cast @FooVar or @FooConst to Pointer, e.g. Pointer(@FooVar).