Hello!
Look at program:
==============================================================
{$T+}
program hello2;
 type TP = procedure;
 type PP = ^TP;
var
  p1: TP;
  p2: PP;
procedure A;
  begin
   writeln('Hello world');
  end;
begin
  p1:=a;
  ;
  p2^();
end.
==============================================================

This program is work OK when compiled by FPC in -S2 mode (OBJFPC). But it is crashing if compiled by FPC in -Sd mode (Delphi). We have the same behavior when we compile with Kylix (DCC). I think there is a problem: compilers do not tell us any warning but generate a wrong code.

If to replace

    ;

with

    p2:=@@p1;

then DCC compiled binary work OK. But FPC do not compile this.

Regards,
Sergey Korshunoff

That is because the procedure variables are not cleanly implemented in Tp/Delphi, sometimes you need the @ and even sometimes @@.

That's then a bug in the delphi mode code. For FPC mode it is not allowed.