While mientras no se haga click

[ANG4L]

Buenas !!!!
Mi duda de la fecha es:
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 )
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 !