[*Caro*]

Hola lily21, tendría que ser algo como esto:

Código Delphi [-]
 Indice := 1; 
 digito := numero mod 10;
 if digito<9 then
  numaux := digito+1
 else
  numaux := 0;
 
  numaux := numaux + digito * Power(10,Indice);
 
  while numero>0 do
  begin
   Inc(Indice);
   numero := numero div 10;
   digito := numero mod 10;
   if Length(IntToStr(numero))>1 then
    numaux := numaux  + digito * Power(10,Indice);
  end;

Puedes cambiar la funciíon Length por una que te hagas para contar digitos así no conviertes a String, el resultado esta en numaux, ahora para las 9 veces usas un for con el codigo de arriba, mejor aún si ese codigo lo colocas en una función .

Saluditos