Mehrere Label nach Wahl in die Clipboard kopieren?

[Jumpy]

Mal ausführlich

Delphi-Quellcode:

if Sender is TMenuItem then
  if TMenuItem(Sender).GetParentMenu is TPopupMenu then
    if TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent is TLabel then
      showmessage(TLabel(TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent).Caption)