Hello

A la compilation, une instruction sur laquelle j'ai mis un point d'arrêt est surlignée et marquée d'une croix verte.
Elle n'est pas exécutée.

Il s'agit de l'instruction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 Dec(NoCity);
dans
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
...
...
        if NbrDir > 1 then
           FormProgress.LabelTask.Caption := StrList[15] + ' - ' + StrList[17] + ' ' + IntToStr(NoCity);
        FormProgress.Refresh;
        Index := FindFirst(CadaFilesDir + cCode + '\*.Zip',faAnyFile, FoundResult);
        Dec(NoCity);
        While Index = 0 do
        if (FoundResult.Name <> '.') and (FoundResult.name <> '..') then
         begin
...
...
Quelle peut en être la raison ?

Merci d'avance pour toute explication.