Delphi:

TFunc<T1,T2,T3,T4,TResult> = function (Arg1: T1; Arg2: T2; Arg3: T3; Arg4: T4): TResult of object;

C++:

(Arg1: T1; Arg2: T2; Arg3: T3; Arg4: T4): TResult (T1,T2,T3,T4,TResult TFunc)();