[b3nshi]

No se si te refieres a esto pero quizas te sirve:

Código Delphi [-]
edit2.text := inttostr(listbox1.Items.Count);

{Saludos}