Dilma, вот чего до меня доехало:

Чтобы поправить это дело можно не лезть ни в среду, ни в кодогенератор.
Проще все:
1)
[code:1]procedure THIEditMultiEx.SetParent; begin
FParent := Value;
if THIMultiElementEx(FParent)._prop_Mode <> 0 then
InitMan.Init;
end;[/code:1]
2) А вот в InitMan.Init необходима чистка списка после запуска, ну например:
[code:1]procedure TInitMan.Init; var i:word;
begin
if Count = 0 then exit;
for i := 0 to Count-1 do
Items[i];
Count := 0;
SetLength(Items,0);
end;[/code:1]

BTW: если иметь ввиду возможность обладания различными зкземплярами одного класса разными же значениями св-ва Mode, то на этапе компиляции, запуск или нет InitMan.Init сразу после отработки конструктора - не разрешишь....
Только на этапе исполнения....