fix(sync): le poste aussi abandonne vite une adresse morte, et reessaie

140.82.121.5 est une adresse de GitHub injoignable depuis ce reseau - verifie
par l'application ET par un navigateur, sur deux appareils. Un navigateur passe
a la suivante aussitot ; le poste attendait dix secondes puis abandonnait. Huit
secondes pour la poignee de main et trois essais, mais seulement quand la
requete n'a pas abouti : un 404 ou un 409 sont des reponses, pas des echecs.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>

delphi-backend/UMainForm.pas

@@ -1686,6 +1686,15 @@ begin
         LStatus: Integer;
         LErr: string;
         LEtag: string;
+      begin
+        // TROIS ESSAIS, ATTENTE DE CONNEXION COURTE. GitHub publie plusieurs
+        // adresses et l'une d'elles, 140.82.121.5, n'est joignable depuis ce
+        // reseau ni par l'application ni par un navigateur - verifie des deux
+        // cotes. Un navigateur passe aussitot a la suivante ; nous attendions
+        // le delai entier puis abandonnions. Seul un status 0 - la requete n'a
+        // pas abouti - fait recommencer : un 404 ou un 409 sont des reponses.
+        LStatus := 0;
+        for var LTry := 1 to 3 do
         begin
         LStatus  := 0;
         LBodyB64 := '';
@@ -1694,7 +1703,7 @@ begin
         try
           LHttp := System.Net.HttpClient.THTTPClient.Create;
           try
-            LHttp.ConnectionTimeout := 10000;
+            LHttp.ConnectionTimeout := 8000;   // voir la boucle ci-dessus
             LHttp.ResponseTimeout   := 30000;
             // GitHub REFUSE toute requete sans User-Agent (403) ; Gitea l'ignore.
             LHttp.UserAgent := 'PMServer';
@@ -1779,6 +1788,8 @@ begin
             LErr := E.Message;
           end;
         end;
+        if LStatus <> 0 then Break;
+        end;
         TThread.Queue(nil,
           procedure
           var