deztobin
 n:=  StrToInt(txtEingabe.Text);
                    t:= '';
                      while (n>0) do
                      begin
                        t:= IntToStr(n mod 2) + t;
                        n:= n div 2;
                      end;
                      txtAusgabe.Text := t;