While mientras no se haga click
 

Buenas !!!!
Mi duda de la fecha es: :p
como hacer un while mientras no se haga un click en el form?
Tengo un form que escucha los clicks mouse, con un click se le da y empieza un while, y cuando se vuelve a clickear, deberia pararse (cosa que no logro resolver :mad:)
El codigo es el siguiente

Código Delphi [-]
procedure TForm1.FormClick(Sender: TObject);  
Begin 
if corriendo = false   then     
  corriendo:= true   
else     
  corriendo:= false;  

while corriendo do     
  If ListBox1.ItemIndex = ListBox1.Count -1  then         
    ListBox1.ItemIndex:= 0       
  else         
    ListBox1.ItemIndex:= ListBox1.ItemIndex + 1; 
end

PD: Corriendo es una variable global

Saludos gente, gracias ! :D

Añade un Application.ProcessMessages como primera línea del bucle.

Se Agradeceeeeeee !!!! Funciono correctamente ! :D