Delphi - como saber cuantos elementos se repitenen un lixtb

Hola

Quiero saber cuantos elementos se repiten en un Listbox, y poner el resultado en otro listbox.

lista:
Button
Button
Edit
(ListBox2)

lista 2:

2 Button
1Edit
(ListBox)

El codigo que tengo es este:

// Ciclo para llenar el ListBox1
for Cont:= 0 to Extraermenu.ListBox1.Count-1 do
if Extraermenu.ListBox1.Items.Strings[Cont]= TRIM(IntToStr(hndObjeto)+':'+CAPTION+ '-' + Texto) then begin
existe:= true;
end;
if (existe=false) then begin
ExtraerMenu.listbox1.Items.Add(TRIM(IntToStr(hndObjeto)+':'+CAPTION+ '-' + Texto));
ExtraerMenu.listbox2.Items.Add (Caption);
end; //if
end;//for

pude con codigo eliminar los repetidos, pero lo que necesito es saber cuantas veces se repite un elemento de ListBox2 y guardalos resultados en otro List Box, pueden ayudarme