[roman]

Empezado por Mick

Solo comentar que no tiene sentido implementar ese tipo
de algoritmo en forma recursiva

¡Qué exigentes!

Código Delphi [-]
function DecToBin2(D: Integer): String;
begin
  Result := '';

  while D > 0 do
  begin
    Result := IntToStr(D mod 2) + Result;
    D := D div 2;
  end;
end;

// Saludos