diff --git a/lcl/valedit.pas b/lcl/valedit.pas
index aa78c271ea..af3f9578a3 100644
--- a/lcl/valedit.pas
+++ b/lcl/valedit.pas
@@ -431,10 +431,18 @@ begin
 end;
 
 procedure TValueListStrings.Delete(Index: Integer);
+var
+  i: Integer;
 begin
   Changing;
   inherited Delete(Index);
-  // ToDo: Delete also ItemProps
+  // Delete also ItemProps
+  if Index<=Count then begin
+    FItemProps[Index].Free;
+    for i := Index to Length(FItemProps)-1 do
+      FItemProps[i] := FItemProps[i+1];
+    SetLength(FItemProps, Count);
+  end;
   Changed;
 end;