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

// 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);