diff --git a/components/lazdebuggergdbmi/gdbmidebugger.pp b/components/lazdebuggergdbmi/gdbmidebugger.pp
index 39a9f682b6..c476c8ebc7 100644
--- a/components/lazdebuggergdbmi/gdbmidebugger.pp
+++ b/components/lazdebuggergdbmi/gdbmidebugger.pp
@@ -11363,6 +11363,7 @@ begin
   t := DefaultTimeOut;
   f := [];
   for i := 0 to ACommands.Count - 1 do begin
+    s := ACommands[i];
     if (s = '') or (s = '#') then
       continue;