But in this case The comparision should be for two chars

    while (ii<=iy) do

    begin

        if (position(substring(m_sir from ii for 2),m_char)=0) then

            m_str=m_str||substring(m_sir from ii for 1);

        ii=ii+1;

    end

But, if the original ID like TEIL***ABC Then will be the three *** deletet, only the right * should be cut, this are the * who filled…