Jak obliczyć wartość binarną w różnych

Obliczanie systemu binarnego można przedstawić Algorytmem i program też jest w taki sposób napisany.
Należy wstawić cztery komponenty takie jak :
TEdit = Edit1 w który będzie się wpisywało liczbę do przetworzenia w danym systemie.
TEdit = Edit2 w którym będzie się wpisywało system np. 2,...10,...16,... itp.
TLabel = Label1 w którym będzie się wyświetlał wynik przetworzenia w systemie binarnym.
TButton = Button1 w którym będzie znajdować się cała procedura.

Oto kod tego algorytmu obliczania.

procedure TForm1.Button1Click(Sender: TObject);
var
  a,c,d:int64;
  b:string;
begin
  a:= strtoint64 (edit1.Text);
  c:= strtoint (edit2.Text);
  b:= '';
  repeat
    d:= a mod c;
    if d > 9 then
      b:= Char(d+65) + b
    else
      b:= inttostr(d) + b;
    a:= a div c;
  until a = 0;
  label1.Caption := b;
end;