Перевод систем счисления

//Загрузка HTML документа.
procedure TForm1.Button1Click(Sender: TObject);
begin
  //WebBrowser1.Silent := True; //Отключение режима показа предупреждений.
  WebBrowser1.Navigate(Edit1.Text);
end;
 
//Обработка HTML документа.
procedure TForm1.Button2Click(Sender: TObject);
var
  Doc, Frm, Elem, Arr : OleVariant;
  SNum1, SB1, SB2 : String;
  B1, B2, i : Integer;
begin
  //Ссылка на интерфейс документа.
  Doc := WebBrowser1.OleObject.document;
  if VarIsClear(Doc) then begin
    MessageBox(Handle, 'Объект документа не создан. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  //Исходные данные.
  SNum1 := Edit2.Text; //Запись числа в системе счисления по основанию B1.
  SB1 := Edit3.Text;
  if not TryStrToInt(SB1, B1) and not (B1 in [2..36]) then //Основание B1.
  begin
    MessageBox(Handle, 'Основание должно быть целым числом из диапазона 2..36. Исправьте ввод.',
      'Основание задано неверно!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
  SB2 := Edit4.Text;
  if not TryStrToInt(SB2, B2) and not (B2 in [2..36]) then //Основание B2.
  begin
    MessageBox(Handle, 'Основание должно быть целым числом из диапазона 2..36. Исправьте ввод.',
      'Основание задано неверно!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
 
  //Обработка DOM модели HTML документа.
 
  //1. Ищем HTML форму.
  //<form name="f1">
  //Массив всех HTML форм в документе.
  Arr := Doc.getElementsByTagName('form');
  //В полученном массиве ищем элемент с name="f1".
  VarClear(Elem);
  for i := 0 to Arr.length - 1 do
    if Arr.item(i).name = 'f1' then
    begin
      Frm := Arr.item(i);
      Break;
    end;
 
  //2. В пределах формы ищем элементы, предназначенные для ввода исходных данных.
 
  //Представление исходного числа.
  //<input type="text" name="number" maxlength="40" size="40" value="">
  //В пределах формы: коллекция элементов с name="number".
  Arr := Frm.getElementsByTagName('input');
  //В коллекции ищем элемент с name="number".
  VarClear(Elem);
  for i := 0 to Arr.length - 1 do
    if Arr.item(i).name = 'number' then
    begin
      Arr.item(i).value := SNum1; //Записываем значение в найденный элемент.
      Break;
    end;
 
  //Основание исходной СС.
  //<select name="r1">
  //  <option value="2">2</option>
  //  <option value="3">3</option>
  //  ...
  //  <option value="36">36</option>
  //</select>
  //В пределах формы: коллекция элементов с тегом <select>.
  Arr := Frm.getElementsByTagName('select');
  //В коллекции ищем элемент с name="r1".
  VarClear(Elem);
  for i := 0 to Arr.length - 1 do
    if Arr.item(i).name = 'r1' then
    begin
      Elem := Arr.item(i);
      Break;
    end;
  //Выбираем нужный элемент <option>.
  for i := 0 to Elem.options.length - 1 do
    if Elem.options.item(i).value = SB1 then
    begin
      Elem.selectedIndex := i;
      Break;
    end;
 
  //Основание целевой СС.
  //<select name="r2">
  //  <option value="2">2</option>
  //  <option value="3">3</option>
  //  ...
  //  <option value="36">36</option>
  //</select>
  //В пределах формы: коллекция элементов с тегом <select>.
  Arr := Frm.getElementsByTagName('select');
  //В коллекции ищем элемент с name="r2".
  VarClear(Elem);
  for i := 0 to Arr.length - 1 do
    if Arr.item(i).name = 'r2' then
    begin
      Elem := Arr.item(i);
      Break;
    end;
  //Выбираем нужный элемент <option>.
  for i := 0 to Elem.options.length - 1 do
    if Elem.options.item(i).value = SB2 then
    begin
      Elem.selectedIndex := i;
      Break;
    end;
 
  //3. В пределах формы находим кнопку, по которой запускается расчёт и щёлкаем по ней.
 
  //Кнопка, по которой запускается расчёт.
  //<input value="Выполнить" onclick="go();" type="button">
  Arr := Frm.getElementsByTagName('input');
  for i := 0 to Arr.length - 1 do
    if Arr.item(i).type = 'button' then
    begin
      Arr.item(i).click; //Выполняем щелчок на кнопке - для запуска расчёта.
      Break;
    end;
 
  //Ожидаем, пока на странице происходят изменения.
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;
 
  //4. Читаем результат расчёта.
 
  //Ищем элемент, который содержит результат расчёта и читаем его содержимое.
  //<div id="result">
  Edit5.Text := Doc.getElementById('result').innerHTML;
 
  //ShowMessage('Расчёт выполнен.');
end;