MultiObj

local function MultiObj(obj)
    local fake = newproxy(true)
    local mt = getmetatable(fake)
    mt.__index = function(self, i)
        return obj[i]
    end
    mt.__namecall = function(self, ...)
        local args = {...}
        local method = args[#args]
        args[#args] = nil
        if method == "delay" then
            wait(tonumber(args[1]) or 0)
            return fake
        end
        obj[method](obj, unpack(args))
        return fake
    end
    return fake
end

do
    local rin = Instance.new
    Instance = {
        new = function(cn, par)
            return MultiObj(rin(cn, par))
        end
    }
end

local part = Instance.new("Part", workspace)
part:Explode()
    :delay(1)
    :Destroy()