diff --git a/MainForm.pas b/MainForm.pas
index 8bd1538..5199b73 100644
--- a/MainForm.pas
+++ b/MainForm.pas
@@ -8280,7 +8280,11 @@ begin
     begin
       St := Format('RX %d WPM', [FController.CWDecSpeedWPM]);
       if FController.CWDecToneOffsetHz <> 0 then
-        St := St + Format(', tone %+d Hz', [FController.CWDecToneOffsetHz]);
+        // Знак руками: флага '+' в Format Object Pascal нет, '%+d' съедается
+        // молча и в строку попадает голая 'd'.
+        St := St + Format(', tone %s%d Hz',
+          [IfThen(FController.CWDecToneOffsetHz > 0, '+', ''),
+           FController.CWDecToneOffsetHz]);
       if not FController.CWDecSignal then St := St + ', no signal';
     end
     else