diff --git a/components/fpdebug/fpdbgcontroller.pas b/components/fpdebug/fpdbgcontroller.pas
index f4a3972f46..efd8251143 100644
--- a/components/fpdebug/fpdbgcontroller.pas
+++ b/components/fpdebug/fpdbgcontroller.pas
@@ -48,7 +48,7 @@ type
     destructor Destroy; override;
     function Run: boolean;
     procedure Stop;
-    procedure StepIntoStr;
+    procedure StepIntoInstr;
     procedure StepOverInstr;
     procedure ProcessLoop;
     procedure SendEvents(out continue: boolean);
@@ -131,7 +131,7 @@ begin
   FMainProcess.TerminateProcess;
 end;
 
-procedure TDbgController.StepIntoStr;
+procedure TDbgController.StepIntoInstr;
 begin
   FCurrentThread.SingleStep;
 end;
diff --git a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
index e5c9eff782..de1b655d20 100644
--- a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
@@ -588,7 +588,7 @@ begin
       end;
     dcStepIntoInstr:
       begin
-        FDbgController.StepIntoStr;
+        FDbgController.StepIntoInstr;
         SetState(dsRun);
         StartDebugLoop;
         result := true;