TMenuItem Bug?

[HarryMudd]

Folgendes Problem beschäftigt mich seit Stunden:

Ein dynamisches Popupmenu:

Code: Alles auswählen

procedure TDatabaseNode.DefinePopupMenu(P: TPopupMenu);
begin
  P.Items.Insert(0, NewLine);
  P.Items.Insert(0, NewSubMenu(sItmSchemaCopySchema, 0, '',
    [NewItem(sItmSchemaCopyName, 0, False, True, @DoCopyName, 0, ''),
    NewItem(sItmSchemaCopySQL, 0, False, True, @DoCopySQL, 0, '')]));
end;

Problem dabei: Die Notify Methode wird nicht ausgeführt.
Nach etlichen Versuchen bin ich dahinter gekommen, das es wohl am "Insert" liegt. Mache ich dasselbe mit "Add" werden die Methode aufgerufen. Kann das jemand verifizieren?

MfG HarryMudd