[DarkByte]

Añado que cuando estoy en modo "Frase a Frase", es decir, escribiendo arriba la original y debajo la encriptada, me lanza:

Error al escribir la línea encriptada

Por lo que supongo que el error estará en

Código Delphi [-]
      with mmEncriptado do
        begin
        try SelAttributes.Color := clBlue;
          except ShowMessage ('Error al colorear el texto encriptado'); end;
        try mmEncriptado.Lines.Add(Encrypt(reTexto.Lines[i],9681));
         //------------AQUI SALTA EL MENSAJE------------
        except ShowMessage ('Error al escribir la linea encriptada'); end;
      end;