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;