Delphi:

TPosFunc = function (const SubStr, Str: UnicodeString; Offset: Integer): Integer;

C++:

(const SubStr, Str: UnicodeString; Offset: Integer): Integer ( TPosFunc)();