diff --git a/mainApk.pas b/mainApk.pas
index 2ff66e1..1d139be 100644
--- a/mainApk.pas
+++ b/mainApk.pas
@@ -3384,15 +3384,11 @@ begin
         var
           LMgr: TScanManager;
           LRes: TReadResult;
-          LText, LDiag: string;
+          LText: string;
           LHints: TDictionary<TDecodeHintType, TObject>;
-          LW, LH: Integer;
         begin
           LText := '';
-          LDiag := '';
           LRes := nil;
-          LW := LBmp.Width;
-          LH := LBmp.Height;
           // TRY_HARDER : le chercheur de motifs balaie chaque ligne au lieu
           // d'en sauter - indispensable pour un QR photographie sur un ecran.
           LHints := TDictionary<TDecodeHintType, TObject>.Create;
@@ -3403,11 +3399,7 @@ begin
               LRes := LMgr.Scan(LBmp);
               if LRes <> nil then LText := LRes.Text;
             except
-              on E: Exception do
-              begin
-                LText := '';
-                LDiag := E.ClassName + ': ' + E.Message;
-              end;
+              LText := '';
             end;
           finally
             LRes.Free;
@@ -3418,11 +3410,6 @@ begin
             procedure
             begin
               FScanBusy := False;
-              // DIAG scan (temporaire) : les premiers essais, puis un sur vingt.
-              if (FScanFrame <= 40) or (FScanFrame mod 80 = 0) then
-                Log(Format('QR scan frame %d: %dx%d, %s', [FScanFrame, LW, LH,
-                  IfThen(LDiag <> '', LDiag,
-                    IfThen(LText = '', 'nothing found', 'read ' + IntToStr(Length(LText)) + ' chars'))]));
               if (not FScanning) or (LText = '') then Exit;
               // CHERCHE, NE COMPARE PAS LE DEBUT : le texte decode est arrive
               // avec un caractere invisible en tete (104 lus pour 103 emis),