Puedes hacer esto
Código Delphi
[-]
ListBox1.Items.Add(IntToStr(ListBox1.Items.Count +1) + ' Elemeto');
PD: bueno, seria lo mismo que posteo [maeyanes] , nada más que más corto y menos flexible [ya que no incluye el format] auque la condición de verdad no se necesita.
maeyanes, que buen programador eres, que rápido que te distes cuenta del BUG que tenía tu anterior código