Man kann auch der Einfachheit halber jedem Button ein Tag verpassen und über dieses steuern:
Delphi-Quellcode:
if Assigned(PopupMenu1.PopupComponent) then
begin
case PopupMenu1.PopupComponent.Tag of
0: mach dies;
1: mach das
end;
end;
[EDIT] das spart das Zerlegen des Strings...
Frank