[aposi]

Código Delphi [-]

 
    2: begin    
       if BloqueCero = 3 then
          Temp := ' ' 
      else Temp := ' MIL';
      if Bloque = 'UN' then Resultado := Temp + Resultado;
      else Resultado := Bloque + Temp + Resultado;   
     end;

Prueba con esta modificación:
se trata de a la hora de moner el mil, si el numero es 'UN' que no lo ponga
creo que no fallara en ningun numero.