Popup Menü auf erstellter Listbox

[busybyte]

Naja er hat ja schon ne if Überprüfung auf TListbox, die hab ich nur nicht dazugeschrieben weil ich glaube der Haupt-Fehler liegt in der einen Zeile und denke das
er schon weis das die if-Abfrage dazugehört.
Ich wollte aber noch anmerken das Sender(TObject) prima zum Verweis auf das eigentlich aufrufende Object verwendet werden kann.
Die Casts sind mit den richtigen Typen absolut problemlos und oft sogar notwendig.
Aber ich seh's ein ich hab geschludert und es nicht eindeutig geschrieben.