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;
Ich hab angenommen, der Strichpunkt wäre nur beim Auskommentieren reingekommen. Falls der vorher auch schon drin war, dürfte das einiges erklären.
