[roman]

¿Qué tal algo así?

Código Delphi [-]
function DecToBin(D: Integer): String;
begin
  if D > 0
    then Result := DecToBin(D div 2) + IntToStr(D mod 2)
    else Result := '';
end;

// Saludos