Da die Objekte an der PopupColumn sind, mußt du sie auch dort auslesen.
Eventuell irgendwie so:
* in den Items nach dem gewünschten Item suchen (Index)
* und dann mit dem gefundenen Index das Objekt auslesen
Delphi-Quellcode:
PopupColumn1.Items.Objects[PopupColumn1.IndexOf(Cells[.....])]
// bzw., da wenn nichts ausgewählt *Peng*
Idx := PopupColumn1.IndexOf(Cells[.....]);
if Idx >= 0 then
Obj := PopupColumn1.Items.Objects[Idx];