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

function binario_decimal(binario: Integer): Integer;
var
  decimal, i, resto: Integer;
begin
  i := 0;
  decimal := 0;

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

  Result := decimal;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  binario: Integer;
begin
  binario := StrToInt(InputBox('Binário', 'Informe o valor binário', '0'));
  ShowMessage(IntToStr(binario_decimal(binario)));
end;