type TFunc = function : integer;

var t : TFunc;

begin
t(2);
end.