procedure ThiMT_MTArrayRW._work_doWrite;
var   Arr:PArray;
      Ind:TData;
      dt:TData;
begin
   Arr := ReadArray(_data_Array);
   if Arr=nil then exit;
   Ind := ReadData(_Data,_data_Index,@_prop_Index);
   dt := ReadMTData(_Data,_data_Value);
//   CopyData(@dt,@dt);
   Arr._Set(ind,dt);
   FreeData(@dt);   
end;

procedure ThiMT_MTArray._Add;
var   dt:PData;
begin
   new(dt);
   CopyData(dt,@Val);
   FList.Add(dt);
end;