Tlistbox

[roman]

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