procedure ThiMT_MTArray._Set;
var   ind:integer;
      dt:PData;
begin
   ind := ToIntIndex(Item);
   if(ind >= 0)and(ind < _Count)then begin
      dt := PData(FList.Items[ind]);
      FreeData(dt);
      dispose(dt);
      new(dt);
      CopyData(dt,@Val);
      FList.Items[ind]:= dt;
   end;
end;

function ThiMT_MTArray._Get;
var   dt:PData;
      ind:integer;
begin
   ind := ToIntIndex(Item);
   if(ind >= 0)and(ind < _Count)then begin
      Result := true;
      dt := PData(FList.Items[FList.Count-1]);
      CopyData(@Val, dt);
   end
   else Result := false;
end;