diff --git a/components/industrialstuff/source/indlcddisplay_editorform.pas b/components/industrialstuff/source/indlcddisplay_editorform.pas
index 864d756e0..b3921d006 100644
--- a/components/industrialstuff/source/indlcddisplay_editorform.pas
+++ b/components/industrialstuff/source/indlcddisplay_editorform.pas
@@ -357,7 +357,7 @@ procedure TLCDCharDefsEditor.ClearEditorGrid;
 var
   i: integer;
 begin
-  for i := 0 to High(FTmpDotRows[i]) do
+  for i := 0 to High(FTmpDotRows) do
     FTmpDotRows[i] := 0;
 end;