La verdad es que perdi la cuenta de las veces que te he agradecido seoane... pero alli va... gracias!
Probé el código que me enviaste y ahora lo voy a adaptar a mi caso.
Solamente debo decir que a mi parecer, el efecto debe ser inverso. Tu código implementa el umbral de la siguiente manera:
Código Delphi
[-]if Result[k] > Umbral then
Result[k]:= 255
else
Result[k]:= 0;
Yo, en cambio lo prefiero asi:
Código Delphi
[-]if Result[k] > Umbral then
Result[k]:= 0
else
Result[k]:= 255;
Saludos,