Delphi para iniciantes - Como converter de decimal para binário usando a linguagem Delphi

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// função que converte de decimal para binário
function decimal_binario(decimal: Integer): Integer;
var
  binario, resto, i: Integer;
begin
  binario := 0;
  i := 1;

  while decimal <> 0 do
    begin
      resto := decimal mod 2;
      decimal := Floor(decimal / 2);
      binario := binario + (resto * i);
      i := i * 10;
    end;

  Result := binario;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  decimal: Integer;
begin
  decimal := StrToInt(InputBox('Decimal', 'Informe o valor decimal', '0'));
  ShowMessage(IntToStr(decimal_binario(decimal)));
end;