diff --git a/components/fpdebug/fpdbgdisasx86.pp b/components/fpdebug/fpdbgdisasx86.pp
index fd71e61873..f518ef918d 100644
--- a/components/fpdebug/fpdbgdisasx86.pp
+++ b/components/fpdebug/fpdbgdisasx86.pp
@@ -3366,7 +3366,7 @@ begin
   S := '';
   while Code < AAddress do
   begin
-    S := S + HexStr(Code[n], 2);
+    S := S + HexStr(Code^, 2);
     inc(Code);
   end;
   ACodeBytes := S;