Создать программу для перевода в обратный и дополнительный коды

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    BitBtn1: TButton;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
  private
     procedure TForm1.BitBtn1Click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
  procedure PODkod (Val:Integer; var per_razr,PrKod,ObrKod,DopKod:String);
var
a:String;
i:Longint;
begin
a:='';
if Val<0 then per_razr:='1.' else per_razr:='0.';
Val:=Abs(Val);
while (Val div 2>0) or (Val mod 2>0) do begin
a:=a+IntToStr(Val mod 2);
Val:=Val div 2;
end;
for i:=1 to Length(a) do
PrKod:=PrKod+a[Length(a)-i+1];
 
if PrKod='' then PrKod:='0';
 
ObrKod:=PrKod;
for i:=1 to Length (ObrKod) do
if ObrKod[i]='1' then ObrKod[i]:='0'
else ObrKod[i]:='1';
 
DopKod:=ObrKod;
if DopKod[Length(DopKod)]='1' then DopKod[Length (DopKod)]:='0'
else DopKod[Length(DopKod)]:='1';
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
PerviyRazryad, PryamKod, ObratKod, DopolKod: String;
begin
PODKod(StrToInt(1eChislo.Text), PerviyRazryad, PryamKod, ObratKod, DopolKod);
1ePrKod.Text:=PerviyRazryad+PryamKod;
1eObrKod.Text:=PerviyRazryad+ObratKod;
1eDopKod.Text:=PerviyRazryad+DopolKod;
end;
 
end.

    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;

1eDopKod.Text
1eObrKod.Text