Hola, puse el código y segun él... el binario de 14 sería 100101010011111011001000 y en realidad es 1110.
¿Por qué? xD
Otra cosa, muchas gracias compae xD... y me podrías explicar eso de
Resultado:=
Chr((Decimal mod 2)
+48)+Resultado; //Añade delante el último dígito del resto obtenido
Resultado:=
Chr(Decimal
+48)+Resultado; //El último que nos queda
"Las palabras en negrita". ¿Por qué sumas 48? ¿Qué es Chr?

Ya había mirado la ayuda delphi, pero no tengo ni idea, parece que vuelve a un valor ASCIII o algo así :S