Восьмиразрядный код символа

procedure TForm1.Button1Click(Sender: TObject);
const
  Base = 2;
var
  S : String;
  i, Len, Code, w : Integer;
begin
  //Читаем двоичную запись. Например: '00100101'.
  S := Edit1.Text;
  Len := Length(S);
  //Искомое число.
  Code := 0;
  //Вес младшего разряда.
  w := 1;
  //Проходим строку справа-налево: от младших разрядов - к старшим.
  for i := Len downto 1 do begin
    case S[i] of
      '0':;
      '1' : Code := Code + w; //Т. е.: Code := Code + 1 * w; 
      else
        raise Exception.Create(
          'Недопустимый символ в двоичной записи натурального числа.'
          + ' Действие отменено.'
        );
    end;
    //Вес разряда на следующей итерации.
    w := w * Base;
  end;
 
  S := 'Число в десятичной системе счисления: ' + IntToStr(Code) + '.';
  if Code > 255 then
    S := S + #10' Нет соответствующего символа в таблице ANSI.'
  else if Code < 32 then
    S := S + #10'Соответствующий символ в таблице ANSI'
      + ' не имеет видимого представления.'
  else
    S := S + #10'Соответствующий символ в таблице ANSI: "' + Chr(Code) + '".'
  ;
  ShowMessage(S);
end;

procedure TForm1.Button2Click(Sender: TObject);
const
  Base = 2;
var
  S : String;
  Code : Integer;
begin
  if Edit1.Text = '' then begin
    MessageDlg(
      'Символ не задан. Действие отменено.'
      ,mtWarning, [mbOK], 0
    );
    Exit;
  end;
 
  Code := Ord( Edit1.Text[1] );
  S := '';
  repeat
    case Code mod Base of
      0 : S := '0' + S;
      1 : S := '1' + S;
    end;
    Code := Code div Base;
  until Code = 0;
 
  ShowMessage('Соответствующий двоичный код: ' + S);
end;

procedure TForm1.Button2Click(Sender: TObject);
const
  Base = 2;
var
  S : String;
  i, Code : Integer;
begin
  if Edit1.Text = '' then begin
    MessageDlg(
      'Символ не задан. Действие отменено.'
      ,mtWarning, [mbOK], 0
    );
    Exit;
  end;
 
  Code := Ord( Edit1.Text[1] );
  S := '';
  for i := 1 to 8 do begin
    case Code mod Base of
      0 : S := '0' + S;
      1 : S := '1' + S;
    end;
    Code := Code div Base;
  end;
 
  ShowMessage('Соответствующий двоичный код: ' + S);
end;