binær til decimal

function BinToInt(Value: String): Integer;
var
  i, iValueSize: Integer;
begin
  Result := 0;
  iValueSize:= Length(Value);
  for i:= iValueSize downto 1 do
    if Value[i] = \'1\' then Result := Result+(1 shl (iValueSize-i));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage(inttostr(bintoint(\'10100\')));
end;

Stoney