[cloayza]

Estimado JCapitan...aquí mi aporte

Código Delphi [-]
unit Mime;
...
{ALen=Largo de la cadena de texto}
  if (ADiscard > 0) then
  begin
    {Elimina ADiscard caracteres...}
    Delete(ACode,ALen - ADiscard + 1,ADiscard);
    //remove the padding indicators

   {Adiciona ADiscard caracteres
   El largo de la cadena no ha sido alterado...}
    ACode:=ACode + StringOfChar('A',ADiscard);
    //replace them with the 0 byte MIME code - always A
  end;
  {AQUI el problema
   Si el largo de la cadena no se altera, Porqué incrementa el largo en ALen en ADiscard...?
   Esto proboca el error
   - Sugerencia comente la línea
  }
  
  //inc(ALen,ADiscard);

Saludos cordiales