[M.A.D.M.A.N.]

Ф-я была с дефолтными параметрами, заменил на явные и проблема пропала

Код:

type
  TAddItemProc = reference to function(ACollection: TColl;
    const ACaption: string = ''; ASelect: Boolean = false): TColl;
...
addIT := function(ACollection: TColl; const ACaption: string;
    ASelect: Boolean): TColl