@@ -155,6 +155,7 @@ begin
begin
aList := TStrings(Editor.GetObjectValue);
aList.Text:=AString;
+ Editor.Modified;
end;