LCL: Prevent an out of bounds error in ValueListEditor when adding rows automatically in Value-column.

git-svn-id: trunk@44714 -

lcl/valedit.pas

@@ -695,11 +695,14 @@ begin
       if i = -1 then
         raise Exception.Create('TValueListStrings.GetItemProp: Key not found: '+s);
     end;
+    if i < FItemProps.Count then
+    begin
       Result := FItemProps.Items[i];
       if not Assigned(Result) then
         Raise Exception.Create(Format('TValueListStrings.GetItemProp: Index=%d Result=Nil',[i]));
     end;
   end;
+end;
 
 
 { TValueListEditor }