diff --git a/components/ideintf/idedebuggervalueformatterintf.pas b/components/ideintf/idedebuggervalueformatterintf.pas
index 261c8c2a17..596cc7e399 100644
--- a/components/ideintf/idedebuggervalueformatterintf.pas
+++ b/components/ideintf/idedebuggervalueformatterintf.pas
@@ -7,7 +7,7 @@
  Abstract:
    Interface for the package IdeDebugger
 }
-unit IdeDebuggerValueFormatterIntf experimental;
+unit IdeDebuggerValueFormatterIntf;
 
 {$mode objfpc}{$H+}
 {$INTERFACES CORBA}
@@ -25,30 +25,27 @@ type
   end;
 
   TLazDbgIdeValFormatterFeature = (
-    vffFormatValue,    // FormatValue() for IWatchResultDataIntf
-    vffFormatOldValue,  // FormatValue() for older backends TDBGType
+    vffFormatValue,     // FormatValue() for IWatchResultDataIntf
+    vffFormatOldValue,  //   Deprecated: FormatValue() for older backends TDBGType
     vffValueData,       // Normal data
-    vffValueMemDump,    // MemDump
+    vffValueMemDump,    // MemDump (Experimental)
 
     vffPreventOrigValue, // Does not support having the orig value shown with the translated result
-    vffSkipOnRecursion  // The formatter may match during printing the value => skip it in this case
-  ) experimental;
+    vffSkipOnRecursion   // The formatter may match during printing the value => skip it in this case
+  );
   TLazDbgIdeValFormatterFeatures = set of TLazDbgIdeValFormatterFeature;
 
   ILazDbgIdeValueFormatterIntf = interface
     ['{AE8A0E22-E052-4C77-AD88-8812D27F3180}']
-
-    (* *** Experimental - This interface will still change *** *)
-
     function FormatValue(AWatchValue: IWatchResultDataIntf;
-                         ADisplayFormat: TWatchDisplayFormat;
+                         const ADisplayFormat: TWatchDisplayFormat;
                          AWatchResultPrinter: IWatchResultPrinter;
                          out APrintedValue: String
-                        ): Boolean; experimental;
+                        ): Boolean;
 
     function FormatValue(aDBGType: TDBGType;
                          aValue: string;
-                         ADisplayFormat: TWatchDisplayFormat;
+                         const ADisplayFormat: TWatchDisplayFormat;
                          out APrintedValue: String
                         ): boolean; experimental; deprecated 'For values from older backends only - to be removed as backends are upgraded';
 
@@ -113,14 +110,14 @@ type
   public
     constructor Create; // inherited Create may not be called => use init
     function FormatValue(AWatchValue: IWatchResultDataIntf;
-                         ADisplayFormat: TWatchDisplayFormat;
+                         const ADisplayFormat: TWatchDisplayFormat;
                          AWatchResultPrinter: IWatchResultPrinter;
                          out APrintedValue: String
-                        ): Boolean; virtual; experimental;
+                        ): Boolean; virtual;
 
     function FormatValue(aDBGType: TDBGType;
                          aValue: string;
-                         ADisplayFormat: TWatchDisplayFormat;
+                         const ADisplayFormat: TWatchDisplayFormat;
                          out APrintedValue: String
                         ): boolean; virtual; experimental; deprecated 'For values from older backends only - to be removed as backends are upgraded';
 
@@ -225,14 +222,14 @@ begin
 end;
 
 function TLazDbgIdeValueFormatterGeneric.FormatValue(
-  AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
+  AWatchValue: IWatchResultDataIntf; const ADisplayFormat: TWatchDisplayFormat;
   AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String): Boolean;
 begin
   Result := False;
 end;
 
 function TLazDbgIdeValueFormatterGeneric.FormatValue(aDBGType: TDBGType;
-  aValue: string; ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
+  aValue: string; const ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
   ): boolean;
 begin
   Result := False;
diff --git a/ide/packages/idedebugger/idedebuggervalueformatterarrayofchartostring.pas b/ide/packages/idedebugger/idedebuggervalueformatterarrayofchartostring.pas
index a92792709e..e4cd1d6b88 100644
--- a/ide/packages/idedebugger/idedebuggervalueformatterarrayofchartostring.pas
+++ b/ide/packages/idedebugger/idedebuggervalueformatterarrayofchartostring.pas
@@ -36,7 +36,7 @@ type
   public
     class function GetRegisteredDisplayName: String;
     function FormatValue(AWatchValue: IWatchResultDataIntf;
-      ADisplayFormat: TWatchDisplayFormat;
+      const ADisplayFormat: TWatchDisplayFormat;
       AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
       ): Boolean; override;
     function SupportedFeatures: TLazDbgIdeValFormatterFeatures; override;
@@ -108,7 +108,7 @@ begin
 end;
 
 function TIdeDbgValueFormatterCharArrayToString.FormatValue(
-  AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
+  AWatchValue: IWatchResultDataIntf; const ADisplayFormat: TWatchDisplayFormat;
   AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String): Boolean;
 var
   Cnt, i: Integer;
diff --git a/ide/packages/idedebugger/idedebuggervalueformattercolor.pas b/ide/packages/idedebugger/idedebuggervalueformattercolor.pas
index 665f84a095..810270c7ba 100644
--- a/ide/packages/idedebugger/idedebuggervalueformattercolor.pas
+++ b/ide/packages/idedebugger/idedebuggervalueformattercolor.pas
@@ -56,12 +56,12 @@ type
   TIdeDbgValueFormatterColor = class(TIdeDbgValueFormatterColorBase)
     class function GetRegisteredDisplayName: String;
     function FormatValue(AWatchValue: IWatchResultDataIntf;
-      ADisplayFormat: TWatchDisplayFormat;
+      const ADisplayFormat: TWatchDisplayFormat;
       AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
       ): Boolean; override; experimental;
     function FormatValue(aDBGType: TDBGType;
                          aValue: string;
-                         ADisplayFormat: TWatchDisplayFormat;
+                         const ADisplayFormat: TWatchDisplayFormat;
                          out APrintedValue: String
                         ): boolean; override; deprecated 'For values from older backends only - to be removed as backends are upgraded';
   end;
@@ -73,12 +73,12 @@ type
   TIdeDbgValueFormatterColorAlpha = class(TIdeDbgValueFormatterColorBase)
     class function GetRegisteredDisplayName: String;
     function FormatValue(AWatchValue: IWatchResultDataIntf;
-      ADisplayFormat: TWatchDisplayFormat;
+      const ADisplayFormat: TWatchDisplayFormat;
       AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
       ): Boolean; override; experimental;
     function FormatValue(aDBGType: TDBGType;
                          aValue: string;
-                         ADisplayFormat: TWatchDisplayFormat;
+                         const ADisplayFormat: TWatchDisplayFormat;
                          out APrintedValue: String
                         ): boolean; override; deprecated 'For values from older backends only - to be removed as backends are upgraded';
   end;
@@ -192,7 +192,7 @@ end;
 { TIdeDbgValueFormatterColor }
 
 function TIdeDbgValueFormatterColor.FormatValue(
-  AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
+  AWatchValue: IWatchResultDataIntf; const ADisplayFormat: TWatchDisplayFormat;
   AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String): Boolean;
 var
   IntToIdentFn: TIntToIdent;
@@ -236,7 +236,7 @@ begin
 end;
 
 function TIdeDbgValueFormatterColor.FormatValue(aDBGType: TDBGType;
-  aValue: string; ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
+  aValue: string; const ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
   ): boolean;
 var
   c: integer;
@@ -287,7 +287,7 @@ begin
 end;
 
 function TIdeDbgValueFormatterColorAlpha.FormatValue(
-  AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
+  AWatchValue: IWatchResultDataIntf; const ADisplayFormat: TWatchDisplayFormat;
   AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String): Boolean;
 var
   IntToIdentFn: TIntToIdent;
@@ -333,7 +333,7 @@ begin
 end;
 
 function TIdeDbgValueFormatterColorAlpha.FormatValue(aDBGType: TDBGType;
-  aValue: string; ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
+  aValue: string; const ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
   ): boolean;
 var
   c: int64;
diff --git a/ide/packages/idedebugger/idedebuggervalueformattercurrency.pas b/ide/packages/idedebugger/idedebuggervalueformattercurrency.pas
index 6e83f8ad7c..d00346e16c 100644
--- a/ide/packages/idedebugger/idedebuggervalueformattercurrency.pas
+++ b/ide/packages/idedebugger/idedebuggervalueformattercurrency.pas
@@ -23,12 +23,12 @@ type
   public
     class function GetRegisteredDisplayName: String;
     function FormatValue(AWatchValue: IWatchResultDataIntf;
-      ADisplayFormat: TWatchDisplayFormat;
+      const ADisplayFormat: TWatchDisplayFormat;
       AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
       ): Boolean; override; experimental;
     function FormatValue(aDBGType: TDBGType;
                          aValue: string;
-                         ADisplayFormat: TWatchDisplayFormat;
+                         const ADisplayFormat: TWatchDisplayFormat;
                          out APrintedValue: String
                         ): boolean; override; deprecated 'For values from older backends only - to be removed as backends are upgraded';
 
@@ -49,7 +49,7 @@ begin
 end;
 
 function TIdeDbgValueFormatterCurrency.FormatValue(
-  AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
+  AWatchValue: IWatchResultDataIntf; const ADisplayFormat: TWatchDisplayFormat;
   AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String): Boolean;
 begin
   Result := (AWatchValue.ValueKind in [rdkUnsignedNumVal, rdkSignedNumVal]);
@@ -74,7 +74,7 @@ begin
 end;
 
 function TIdeDbgValueFormatterCurrency.FormatValue(aDBGType: TDBGType;
-  aValue: string; ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
+  aValue: string; const ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
   ): boolean;
 var
   i: int64;
diff --git a/ide/packages/idedebugger/idedebuggervalueformatterdatetime.pas b/ide/packages/idedebugger/idedebuggervalueformatterdatetime.pas
index ddeb09b4db..13aefc53ba 100644
--- a/ide/packages/idedebugger/idedebuggervalueformatterdatetime.pas
+++ b/ide/packages/idedebugger/idedebuggervalueformatterdatetime.pas
@@ -47,12 +47,12 @@ type
     class function GetRegisteredDisplayName: String;
     //constructor Create;
     function FormatValue(AWatchValue: IWatchResultDataIntf;
-      ADisplayFormat: TWatchDisplayFormat;
+      const ADisplayFormat: TWatchDisplayFormat;
       AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
       ): Boolean; override; experimental;
     function FormatValue(aDBGType: TDBGType;
                          aValue: string;
-                         ADisplayFormat: TWatchDisplayFormat;
+                         const ADisplayFormat: TWatchDisplayFormat;
                          out APrintedValue: String
                         ): boolean; override; deprecated 'For values from older backends only - to be removed as backends are upgraded';
 
@@ -141,7 +141,7 @@ begin
 end;
 
 function TIdeDbgValueFormatterDateTime.FormatValue(
-  AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
+  AWatchValue: IWatchResultDataIntf; const ADisplayFormat: TWatchDisplayFormat;
   AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String): Boolean;
 var
   MyDate: Extended;
@@ -164,7 +164,7 @@ begin
 end;
 
 function TIdeDbgValueFormatterDateTime.FormatValue(aDBGType: TDBGType;
-  aValue: string; ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
+  aValue: string; const ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
   ): boolean;
 var
   FS: TFormatSettings;
diff --git a/ide/packages/idedebugger/idedebuggervalueformatterdisplayformat.pas b/ide/packages/idedebugger/idedebuggervalueformatterdisplayformat.pas
index c7537f6781..bcaceb5cfc 100644
--- a/ide/packages/idedebugger/idedebuggervalueformatterdisplayformat.pas
+++ b/ide/packages/idedebugger/idedebuggervalueformatterdisplayformat.pas
@@ -44,7 +44,7 @@ type
   public
     class function GetRegisteredDisplayName: String;
     function FormatValue(AWatchValue: IWatchResultDataIntf;
-      ADisplayFormat: TWatchDisplayFormat;
+      const ADisplayFormat: TWatchDisplayFormat;
       AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
       ): Boolean; override; experimental;
 
@@ -134,7 +134,7 @@ begin
 end;
 
 function TIdeDbgValueFormatterDisplayFormat.FormatValue(AWatchValue: IWatchResultDataIntf;
-  ADisplayFormat: TWatchDisplayFormat; AWatchResultPrinter: IWatchResultPrinter; out
+  const ADisplayFormat: TWatchDisplayFormat; AWatchResultPrinter: IWatchResultPrinter; out
   APrintedValue: String): Boolean;
 var
   d: TWatchDisplayFormat;
diff --git a/ide/packages/idedebugger/idedebuggervalueformatterordinaltoname.pas b/ide/packages/idedebugger/idedebuggervalueformatterordinaltoname.pas
index 58044e9d9d..7053cdf34a 100644
--- a/ide/packages/idedebugger/idedebuggervalueformatterordinaltoname.pas
+++ b/ide/packages/idedebugger/idedebuggervalueformatterordinaltoname.pas
@@ -45,12 +45,12 @@ type
     destructor Destroy; override;
     class function GetRegisteredDisplayName: String;
     function FormatValue(AWatchValue: IWatchResultDataIntf;
-      ADisplayFormat: TWatchDisplayFormat;
+      const ADisplayFormat: TWatchDisplayFormat;
       AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
       ): Boolean; override;
     function FormatValue(aDBGType: TDBGType;
                          aValue: string;
-                         ADisplayFormat: TWatchDisplayFormat;
+                         const ADisplayFormat: TWatchDisplayFormat;
                          out APrintedValue: String
                         ): boolean; override;
 
@@ -333,7 +333,7 @@ begin
 end;
 
 function TIdeDbgValueFormatterOrdinalToName.FormatValue(AWatchValue: IWatchResultDataIntf;
-  ADisplayFormat: TWatchDisplayFormat; AWatchResultPrinter: IWatchResultPrinter; out
+  const ADisplayFormat: TWatchDisplayFormat; AWatchResultPrinter: IWatchResultPrinter; out
   APrintedValue: String): Boolean;
 var
   c: Int64;
@@ -353,7 +353,7 @@ begin
 end;
 
 function TIdeDbgValueFormatterOrdinalToName.FormatValue(aDBGType: TDBGType; aValue: string;
-  ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String): boolean;
+  const ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String): boolean;
 var
   c: int64;
   i: Integer;