function Bin2Int(const AData: String): Double;
var
  i: Integer;
  ExpNum: Integer;
begin
  Result := 0;
  for i := 1 to Length(AData) do
  begin
    ExpNum := Length(AData) - i; //  자릿수 구하기
    Result := Result + (Ord(AData[i]) - 48) * Power(2,ExpNum); // 2^n승
  end;
end;

온라인 상에서 코딩해본 것이라 정확하게 동작할런지는 모르겠네요.
감기로 비몽사몽이라서...