Hi All.

I try use pointers to functions, but application crached:

FUNCTION Some(Int : Integer) : Boolean;

BEGIN

    Some := True;

END;

TYPE

    TFunc : FUNCTION (Int : Integer) : Boolean;

    PFunc : ^Func;

VAR

    Func : TFunc;

    FuncP : PFunc;

BEGIN

    Func := Some;

    Func(10); // worked

    FuncP := @Some;

    FuncP^(10); // crached

    FuncP := @Some;

    Func := FuncP ^;

    Func(10); // crached

END.