Crear mapa de colores en un TEdit

[aguml]

Buenas amigos, estoy haciendo una mi i herramienta la cual debe mostrar un valor en binario en un TEdit y además colorear el texto en varios colores. La cosa es que hay que dibujar algo así: 1010011110...
Donde cada color indica a que corresponden esos bits. La cosa es que no sé cómo pasar un número de 16 bytes a binario y mucho menos colorear SAS diferentes subcadenas del TEdit. ¿Me pueden ayudar?. Sé que para pasar a binario se puede hacer a mano dividiendo entre 2 y el resto indicado hay que poner 1 ó 0 o algo así era.