function BinToInt( Binary: String ):Integer;
var
  i, j: Integer;
begin
  Result := 0;
  j := 1;
  for i := Length( Binary ) downTo 1 do
  begin
    Result := Result + StrToInt( Binary[i] ) * j;
    j := j*2;
  end;
end;
function BinToInt(Bin: array of boolean): cardinal; overload;
var
  i: integer;
  BinStr: string;
begin
  BinStr := '';
  for i := 0 to High(Bin) do
    if Bin[i] then
      BinStr := '1'+BinStr
    else
      BinStr := '0'+BinStr;
  Result := BinToInt(BinStr);
end;
function BinToInt64(Bin: array of boolean): Int64; overload;
var
  i: integer;
  BinStr: string;
begin
  BinStr := '';
  for i := 0 to High(Bin) do
    if Bin[i] then
      BinStr := '1'+BinStr
    else
      BinStr := '0'+BinStr;
  Result := BinToInt64(BinStr);
end;
function BinToInt64(Bin: string): Int64; overload;
var
  i: integer;
  j: Int64;
begin
  Result := 0;
  j := 1;
  for i := Length(Bin) downto 1 do
  begin
    if Bin[i] = '1' then
      Result := Result + j;
    j := j * 2;
  end;
end;