TMenuItem.Tag

[bcvs]

Zitat:

if itm.Tag = NativeInt(1) then;

Probiers mal ohne das ;

Delphi-Quellcode:

if itm.Tag = NativeInt(1) then; // Das ; beendet den (leeren) Befehl. Wenn Tag = 1 ist, wird nichts ausgeführt, ansonsten auch nichts
begin 
  // Das hier wird in jedem Fall ausgeführt
  ShowMessage
  ...
end;