Методы расширения типа Func

function Compose<T1, T2, TResult>(Self: T2->TResult; composer: T1->T2): T1->TResult;
        Суперпозиция функций