#pas
procedure THIChanelToIndex._var_EndIdx;    
begin
  dtInteger(_Data, _prop_Count - 1);
end;

#pas
procedure THIChanelToIndex._var_EndIdx;    
begin
  dtInteger(_Data, Index);
end;