Das Du die Delphihilfe nehmen, unter diesen Stichworten dort suchen, Dir Gedanken machen und dann implementieren sollst
For und if sind Dir ein Begriff.
Count ist eine Property, die in Deiner Listbox existiert. Und mit diesen Infos und ein bisschen Gehirnschmalz, sollten die Probleme lösbar sein...