[lmikle]

Как-то так:

Код:

function BinToDec(ABin : String) : Integer;
var
  I : Integer;
begin
  Result := 0;
  For I := Length(ABin) DownTo 1 Do
    Begin
      Result := Result shl 1;
      If ABin[i] = '1' Then Result := Result + 1;
    End;
end;

Вообще, можно было и свмому подумать, а не тырить код откуда-то и потом мучаться с ним.