diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 81cb884d9c..b0045ed02c 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -8930,7 +8930,7 @@ procedure TSourceEditorManager.OnSourceCompletionTimer(Sender: TObject);
     // check if in a string constant
     p:=1;
     InStringConstant:=false;
-    while (p<=LogCaret.X) and (p<=length(Line)) do begin
+    while (p<LogCaret.X) and (p<=length(Line)) do begin
       if Line[p]='''' then
         InStringConstant:=not InStringConstant;
       inc(p);