diff --git a/components/debuggerintf/dbgintfdebuggerbase.pp b/components/debuggerintf/dbgintfdebuggerbase.pp
index 9fc8531620..e5956cb85d 100644
--- a/components/debuggerintf/dbgintfdebuggerbase.pp
+++ b/components/debuggerintf/dbgintfdebuggerbase.pp
@@ -1363,7 +1363,7 @@ type
       AnOffset: Integer = -1): TDisassemblerAddress;
   public
     constructor Create(AnEntryRangeMap: TDBGDisassemblerEntryMap);
-    destructor Destroy;
+    destructor Destroy; override;
     function DisassembleRange(ALinesBefore,
       ALinesAfter: integer; AStartAddr: TDBGPtr; AnEndAddr: TDBGPtr): boolean;
     property OnDoDisassembleRange: TDoDisassembleRangeProc read FOnDoDisassembleRange write FOnDoDisassembleRange;