[angvelem]

Нечаянно соврал, это не из исходников Дельфи - из компонента NConvertor. Вот варианты в обе стороны:

Код:

function BinToDecStr(bin: string): longint;
var
  i : integer;
begin
  Result := 0;
  for i := 1 to length(bin) do 
  begin
    if not (bin[i] in ['0','1']) then 
    begin
      Result := 0;
      Exit;
   end;
   if bin[i] = '1' then
     Result := Result + (1 shl (length(bin) - i));
  end;
end;


function DecToBinStr(Value: Integer): string;
begin
  Result := '';
  while Value > 0 do 
  begin
    if Odd(Value) then
      Result := '1' + Result
   else
      Result := '0' + Result;
    Value := Value shr 1;
  end;
  if Result = '' then
    Result := '0';
end;