Pb fermeture de fichier

Bonjour

J ai un form avec un bouton Go et un Stop

Le bt stop passe une variable globale STOP à true

Le go declenche la boucle suivante durant laquelle je teste la sortie.

Si la boucle va à son terme je peux recommencer mais si je l interromp, quand je la relance j ai une erreur E/S 32... (sur Rewrite(G);)

Pourtant mon fichier est correctement fermé et le test de STOP intervient apres les operations sur le fichier....

Je ne comprends pas.

Merci de votre aide
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 for T := strtoint(ed_T_debut.Text) to strtoint(ed_T_Fin.Text) do begin FileName := ExtractFilePath(application.ExeName) + 'temp\temp_' + inttostr(T) + '.txt'; AssignFile(G, FileName); Rewrite(G); <--- ICI L ERREUR AssignFile(F, Ed_Source.Text); Reset(F); repeat Readln(F, Stg); Writeln(G, Stg); until EOF(F); closefile(F); closefile(G); application.ProcessMessages; if STOP then break; end;