[lmikle]

Или в виде кода:

Код:

function BinToDec(ABin : Bits) : Integer;
var
  I : Integer;
begin
  Result := 0;
  For I := 0 To 7 Do
    If ABin <> 0 Then Result := Result + power(2,I);
end;