ToDo. Использовать фабрику строк

Вот тут:

procedure TkwCat.DoStrings(const aCtx: TtfwContext;
  const aStr1: Il3CString;
  const aStr2: Il3CString);
//#UC START# *4DD0D021034C_4DD0CEB403AE_var*
//#UC END# *4DD0D021034C_4DD0CEB403AE_var*
begin
//#UC START# *4DD0D021034C_4DD0CEB403AE_impl*
 aCtx.rEngine.PushString(l3Cat([aStr1, aStr2]));
//#UC END# *4DD0D021034C_4DD0CEB403AE_impl*
end;//TkwCat.DoStrings

Как-то так:

procedure TkwCat.DoStrings(const aCtx: TtfwContext;
  const aStr1: Il3CString;
  const aStr2: Il3CString);
//#UC START# *4DD0D021034C_4DD0CEB403AE_var*
//#UC END# *4DD0D021034C_4DD0CEB403AE_var*
begin
//#UC START# *4DD0D021034C_4DD0CEB403AE_impl*
 aCtx.rEngine.PushString(TtfwCStringFactory.C( // - вот тут кешируем, если возможно
  l3Cat([aStr1, aStr2])));
//#UC END# *4DD0D021034C_4DD0CEB403AE_impl*
end;//TkwCat.DoStrings