Code:

function BinToInt(const Value: string): Integer;

{©Drkb v.3(2007): www.drkb.ru}

var

i, strLen: Integer;

begin

Result := 0;

strLen := Length(Value);

for i := 1to strLen do

if Value[i] = '1'then

Result := Result or (1shl (strLen - i))

else

Result := Result andnot (1shl (strLen - i));

end;