delphi TCollection count not increasing after Add

Question

i have the types

• TNotifyReply = class(TCollectionItem)
• TNotifyReplylist = class(TOwnedCollection)

NotifyReplylist := TNotifyReplylist.Create(self, TNotifyReply);

After calling this function (Any number of times), Count it still zero

function TNotifyReplylist.addItem: TNotifyReply;
 begin
   Result := inherited Add as TNotifyReply;
   OutputDebugString(PAnsiChar('Count > '+ inttostr(count)));
 end;

Any idea whats going on here?

Answer 1

Found the problem, TNotifyReply.Create was

constructor TNotifyReply.Create(ACollection: TCollection);
begin
  inherited Create(Collection);
  ....

changed to

inherited Create(ACollection);