.. and if the ID has the length of 15 chars and only the las * is for filling out to 16, i get a wrong result too.

Can I compact my code?

  if(char_length(str)>16) then

  begin

    str = left(:str,16);

    while (k = 1) do

    begin

      if(right(str, 1) = '*') then

      begin

        str = left(str,char_length(str)-1);

      end

      else

      begin

       teil = str;

       k = 0;

      end

    end

  end

(exept the one begin-end (only one command can be without..)