Побитовые операции

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Math;
 
{$R *.dfm}
const
  _SIZE = 8*2*2;
var
 m: array [0.. _SIZE - 1] of byte;
 i: Integer = 0;
 
//разложить по бйтам 
 
procedure return;
 var
  t, c: Integer;
begin
 c:=8;
  Form1.Edit2.Clear;
  for t:=0 to _SIZE - 1 do
  begin
 
    if  t = c then
    begin
     Form1.Edit2.Text:=Form1.Edit2.Text + ' ';
      c:= c+8;
    end;
    Form1.Edit2.Text:=Form1.Edit2.Text + IntToStr(m[t]);
  end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 label step;
  var
   x, y, z: Real48;
begin
  i:=0;
  x:=StrToInt(Edit1.Text); //ввод числа 2147483648
step:
  y:= x/2;
 
  z:= trunc(y);   // z:= x mod 2;
  z:= y - z;
 
  if z = 0 then
  begin
    m[i]:=0;
  end
  else
    m[i]:=1;
  x:=y;
  if y < 1 then
  begin
    Label1.Caption:='Бит: ' + IntToStr(i);
    return;
    Exit;
  end;
  if i > _SIZE then
    ShowMessage('Ошибка! Выход за пределы');
  inc(i);
  goto step;
end;
 
//преобразовать восемь разрядов в байт
procedure BitToByte();
 var
  i: Integer;
  bit: Byte;
  r2: Integer;
  Result: Extended;
  f,r3, n:  Integer ;
begin
 f:=0;
  for i:=0 to 7 do
  begin
   bit:=m[i];
   Result:=Power(bit*2, i); //bitx2^i (1*2^i)
   n:=TRUNC(Result);
   f:= f + n;
  end;
  Form1.Edit3.Text:=FloatToStr(f);
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.Click;
  BitToByte();
end;
 
end.