1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function BinToInt(Text: string): integer;
var
   i  : Integer;
   wert: cardinal;
begin
   i := Length(Text);
   wert := 1;
   Result := 0;
   if  i <= 16 then
     while i > 0 do begin
       if  Text[i] = '1' then
           Result := Result + wert;
           Dec(i);
           wert := wert shl 1;
       end
   else
       Result := -1;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

uses ..., Math;

function BinToDec(Bin: String): Word;
var  r: Single; i: Byte;
begin
  r := 0;
  for i := 1 to Length(Bin) do case Bin[i] of '1': r := r + Power(2, (Length(Bin) - i)) end;
  Result := Trunc( r );
end; {Popov}                    

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage( IntToStr(BinToDec('0101010101010101')) );
end;