diff --git a/lcl/valedit.pas b/lcl/valedit.pas
index ba7f7e036d..1b666ee7e0 100644
--- a/lcl/valedit.pas
+++ b/lcl/valedit.pas
@@ -683,6 +683,8 @@ end;
 
 procedure TValueListEditor.StringsChange(Sender: TObject);
 begin
+  //Since we never call inherited SetCell, this seems the logical place to do it
+  Modified := True;
   AdjustRowCount;
   Invalidate;
   if Assigned(OnStringsChange) then