Определить количество единиц в двоичном представлении числа

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function DecToBin(q: integer): string;
var w: integer;
begin
if (q=0) or (q=1) then result:=IntToStr(q)
else
    begin
    w:=q mod 2;
    result:=DecToBin(q div 2)+IntToStr(w);
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var n, i, count: integer;
begin
If TryStrToInt(Edit1.Text, n) then
    begin
    Edit2.Text:=DecToBin(StrToInt(Edit1.Text));
    count:=0;
    for i:=1 to Length(Edit2.Text) do
        if edit2.Text[i]='1' then inc(count);
    Label3.Caption:='Кол-во единиц = '+IntToStr(count);
    end;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Edit1: TEdit;
 
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
 list: Tstrings;
 i, key: integer;
begin
 i:= 0;
 key:= 0;
 list:= TStringlist.Create;
 list.AddStrings(Memo1.Lines);
 while List.Count >= i + 2 do
   begin
     if (list.Strings[i+1] > list[i]) and (list.Strings[i+1]> list.Strings[i+2] )
      then key:= key+1;
      i:= i+1;
   end;
   list.Free;
   Label1.Caption:= IntToStr(key);
end;
 
 
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 if Edit1.Text = '' then  Exit;
 
 Memo1.Lines.Add(Edit1.Text);
 Edit1.Clear;
 Edit1.SetFocus;
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 case key of
 '0'..'9':
 else Key:= Chr(0);
 end;
end;
 
end.