Ayuda por favor...

[BuRtOn]

Hola amigos, de nuevo yo, hace time, que no preguntaba, lo que pasa es que estoy elaborando un simulador de mensajes, encriptados y necesito saber, como hago para pasar de decimal a binario.....es que miren lo que tengo, pero no se si esta bien:

Código Delphi [-]
numero := 13;
i=0:
while Numero > 0 do
i=i+1;
Result[i]:= Numero mod 2;  1 0 1 1
Numero := Numero div 2; 6 3 1 0
imprimir
for(j=i;j=0;i--)
{
result[j]
}

les agradeceria que me ayudaran con esa bobadita, es que me complique mucho...gracias..