Dans le OnClick de ta form, tu mets ton boolean à True:
procedure TForm1.FormClick(Sender: TObject);
begin
Stop := True;
end;
et dans ta boucle, tu peux faire comme ça :
while (i < nb_boucles) do
begin
Application.ProcessMessages;
Inc(i);
if (Stop) then
Break;
end;
ou comme ça, moins bourrin :
while ((i < nb_boucles) and not(Stop)) do
begin
Application.ProcessMessages;
Inc(i);
end;
[edit]--Message édité par Zero Cool--[/edit]
---------------
"D'abord arrêter le chimique, et après reprendre l'école ..."