TAnyProc = procedure (var V: TVarData);

(var V: TVarData) ( TAnyProc)();