Счетчики совпадений значений строк в ListBox

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=0;
ListBox1.Items.Insert(2, '1');
if ListBox1.Items[2]=ListBox1.Items[4]  then
 Label1.Caption:=inttostr (i+1);
 //обнолуние?
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
i:=0;
ListBox1.Items.Insert(2, '2');
if ListBox1.Items[2]=ListBox1.Items[4]  then
 Label2.Caption:=inttostr (i+1);
  //обнолуние?
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
  j:=0;
  ListBox1.Items.Insert(2, '1');
  For i:=2 To ListBox1.Items.Count-1 Do
  If ListBox1.Items[i]='1' Then
  Inc(j);
 
  Label1.Caption:=inttostr(j);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
j:=0;
  ListBox1.Items.Insert(2, '1');
  For i:=2 To ListBox1.Items.Count-1 Do
  If ListBox1.Items[i]='1' Then
  Inc(j);
  Label2.Caption:=inttostr(j);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
j:=0;
  ListBox1.Items.Insert(2, '2');
  For i:=2 To ListBox1.Items.Count-1 Do
  If ListBox1.Items[i]='2' Then
  Inc(j);
  Label3.Caption:=inttostr(j);
end;
 
procedure TForm1.Button5Click(Sender: TObject);
var i,j:integer;
begin
j:=0;
  ListBox1.Items.Insert(2, '3');
  For i:=2 To ListBox1.Items.Count-1 Do
  If ListBox1.Items[i]='3' Then
  Inc(j);
  Label4.Caption:=inttostr(j);
end;

procedure TForm1.Button1Click(Sender: TObject);
var 
  i,j:integer;
  b : Boolean;
begin
  ListBox1.Items.Insert(2, '1');
  b:=True;
  For i:=3 To ListBox1.Items.Count-1 Do
  If ListBox1.Items[i]='1' Then
  //Строка совпала
  Begin
    b:=False;
    Break;
  End;
 
  j:=StrToIntDef(Label2.Caption,0);
  If b Then Inc(j);
  Label2.Caption:=inttostr(j+1);
end;

  If b Then Inc(j) Else j:=0;

procedure TForm1.IncLabel;
var j:integer;
Begin
  j:=StrToIntDef(Label1.Caption,0);
  Label1.Caption:=inttostr(j+1);
  j:=StrToIntDef(Label2.Caption,0);
  Label2.Caption:=inttostr(j+1);
 
  //И так далее для всех Label
 
  j:=StrToIntDef(Label10.Caption,0);
  Label10.Caption:=inttostr(j+1);
End;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Insert(2, '1');
  IncLabel; //Наращивание счётчиков на всех Label
  Label2.Caption:='0';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  j:=0;
  ListBox1.Items.Insert(2, '1');
  IncLabel; //Наращивание счётчиков на всех Label
  Label3.Caption:='0';
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  j:=0;
  ListBox1.Items.Insert(2, '1');
  IncLabel; //Наращивание счётчиков на всех Label
  Label4.Caption:='0';
end;

Public
procedure IncLabel;

procedure TForm1.IncLabel;
var j:integer;
Begin
  j:=StrToIntDef(Label2.Caption,0);
  j:=StrToIntDef(Label3.Caption,0);
  j:=StrToIntDef(Label4.Caption,0);
  Label2.Caption:=inttostr(j+1);
  Label3.Caption:=inttostr(j+1);
  Label4.Caption:=inttostr(j+1);
 
  //И так далее для всех Label
End;
 
procedure TForm1.Button1Click(Sender: TObject);
var j:integer;
begin
j:=0;
  ListBox1.Items.Insert(2, '1');
  IncLabel; //Наращивание счётчиков на всех Label
  Label2.Caption:='0';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var j:integer;
begin
j:=0;
  ListBox1.Items.Insert(2, '2');
  IncLabel; //Наращивание счётчиков на всех Label
  Label3.Caption:='0';
end;
 
procedure TForm1.Button5Click(Sender: TObject);
var j:integer;
begin
j:=0;
  ListBox1.Items.Insert(2, '3');
  IncLabel; //Наращивание счётчиков на всех Label
  Label4.Caption:='0';
end;