En Delphi7 existe el método SelectAll del ListBox. En caso de que en tu versión no esté implementado puedes mandar tu mismo el mensaje adecuado al control para evitarte el bucle:
ListBox1.Perform(LB_SETSEL, 1, -1);
Y para deseleccionar todos sería:
ListBox1.Perform(LB_SETSEL, 0, -1);
// Saludos
|