diff --git a/lcl/valedit.pas b/lcl/valedit.pas
index b9f0c6c11e..21cc601ad2 100644
--- a/lcl/valedit.pas
+++ b/lcl/valedit.pas
@@ -1370,6 +1370,7 @@ begin
           Result := False;
           ShowMessage(Format(rsVLEDuplicateKey,[NewValue, i + FixedRows]));
           if Editor is TStringCellEditor then TStringCelleditor(Editor).SelectAll;
+          Break;
         end;
       end;
     end;