du brauchst noch eine private variable FOwner vom Typ TComponent in TMyItemList und musst dann noch die beiden nachfolgenden Prozeduren wie folgt überschreiben.
Delphi-Quellcode:
constructor TMyItemList.Create(AOwner: TComponent);
begin
inherited Create(TOurCollectionItem);
FOwner := AOwner;
end;
function TMyItemList.GetOwner: TPersistent;
begin
Result := FOwner;
end;
TCustomMyComp muss TMyItemList dann wie folgt initialisieren (wenn du es nicht bereits so gemacht hast):
FItems := TMyItemList.Create(self);
Ansonsten ist
Creating Custom Delphi Components - Part II, Page 4: Collections sehr hilfreich oder auch ein Blick in die Delphi Sourcen (such dort Mal nach class(TCollection)).
Viel Erfolg noch.
Ciao HeZa