Hallo Stefan,
du solltest den menu items, welche als Untermenü fungieren, nicht den gleichen OnClick() event handler zuordnen, wie den items auf der untersten Ebene. Zumindest solltest du im event handler unterscheiden:
Delphi-Quellcode:
procedure TForm1.MenuItemClick(Sender: TObject);
var
s: String;
begin
with Sender as TMenuItem do
if Count = 0 then
ShowMessage(Caption);
end;
Hintergrund ist, dass deine submenu items beim Überfahren mit der Maus automatisch das event OnClick() auslösen.
Grüße vom marabu