procedure TForm2.MaxBestimmen(Zahl:integer);
begin
 if Zahl<2 then begin max := 1;anz:=1 end
 else
 if Zahl<4 then begin max := 2;anz:=2 end
 else
 if Zahl<8 then begin max := 4;anz:=3 end
 else
 if Zahl<16 then begin max := 8;anz:=4 end
 else
 if Zahl<32 then begin max := 16;anz:=5 end
 else
 if Zahl<64 then begin max := 32;anz:=6 end
 else
 if Zahl<128 then begin max := 64;anz:=7 end
 else
 if Zahl<256 then begin max := 128;anz:=8 end
 else
 if Zahl<512 then begin max := 256;anz:=9 end
 else
 if Zahl<1024 then begin max := 512;anz:=10 end
 else
 if Zahl<2048 then begin max := 1024;anz:=11 end
 else
 if Zahl<4096 then begin max := 2048;anz:=12 end
 else
 if Zahl<8192 then begin max := 4096;anz:=13 end
 else
 if Zahl<16384 then begin max := 8192;anz:=14 end
 else
 if Zahl<32768 then begin max := 16384;anz:=15 end
 else
 if Zahl<65536 then begin max := 32768;anz:=16 end
 else
 if Zahl<131072 then begin max := 65536;anz:=17 end
 else showmessage('die Zahl ' + inttostr(Zahl) + ' ist zu hoch, geben sie eine Zahl zwischen 1 und 131071 ein')
end;

procedure TForm2.Button1Click(Sender: TObject);var j:integer;
begin
FormCreate(Sender);
MaxBestimmen(StrToInt(Edit1.Text));
Wert := StrToInt(Edit1.Text);
BitsBestimmen;
for j:= 1 to 17 do begin
 if j = 1 then Edit1.Text := '';
 Edit1.Text := Edit1.Text + Bit[j]
end;
end;

procedure TForm2.BitsBestimmen; var i: integer;
begin
 for i := 1 to anz do begin
  if wert>=max then begin Bit[i] := '1';dec(wert,max) end
  else Bit[i] := '0';
  if max>1 then max := max div 2
 end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
i := 1;
j := 1;
Bit[1] := '';
Bit[2] := '';
Bit[3] := '';
Bit[4] := '';
Bit[5] := '';
Bit[6] := '';
Bit[7] := '';
Bit[8] := '';
Bit[9] := '';
Bit[10] := '';
Bit[11] := '';
Bit[12] := '';
Bit[13] := '';
Bit[14] := '';
Bit[15] := '';
Bit[16] := '';
Bit[17] := '';
max:=0;
wert:=0;
end;

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = 13 then Button1Click(Sender)
end;