decimal a binario

[luisito2011]

hola a todos...
me podrian ayudar.. oh guiar de como puedo hacer
una funcion que me convierta un numero decimal.. a binario
---
yo ya lo tengo pero mi funcion tiene error...

cuando le envio el numero 2
tendria que mostrarme 10.. pero solo me muestra 1..
intente hacerle con un vector.. pero despuej me acorde..
que una funcion no devuelve un vector..

Código Delphi [-]
int binario(int Numero)
{
int bin,inv,dig;
bin=0; inv=0;
while (Numero>0)
{
    dig=Numero%2;
    if (dig == 0)
        bin=bin*10;
    else
        bin=(bin*10)+dig;
    Numero=Numero/2;
}
while (bin>0)
{
    dig=bin%10;
    inv=(inv*10)+dig;
    bin=bin/10;
}
return inv;
}

esa es mi funcion aun q es un poco simple..
---thanks,...