[angvelem]

Читать умеешь? У меня как массив объявлен?

Можно сразу напрямую, минуя буфер

Код:

function BinToInt(BinStr : string) : Int64;
var
  i : Byte;
  RetVar : Int64;
begin
  BinStr := UpperCase(BinStr);
  if BinStr[Length(BinStr)] = 'B' then
    Delete(BinStr, Length(BinStr), 1);
  RetVar := 0;
  for i := 1 to Length(BinStr) do
  begin
    if not (BinStr[i] in ['0','1']) then
    begin
      RetVar := 0;
      Break;
    end;
    RetVar := (RetVar shl 1) + (Byte(BinStr[i]) and 1) ;
  end;
   
  Result := RetVar;
end;
...
  Edit2.Text := IntToStr(BinToInt(Edit1.Text));
...