Das Property Items der Standard Listbox-Komponente ist doch vom Typ TStrings.
In TStrings lassen sich doch pro Item
ein Text und
ein Objekt hinterlegen.
Wenn man pro Item mehr als ein Objekt braucht, dann braucht man pro Item eine TObjectList und packt dort die Objekte rein.
Alternativ baut man sich ein Wrapper-Objekt, das mehrere Objekte unter einem Dach vereint.
Delphi-Quellcode:
TListBoxItemObj=class(TPersistent)
property RotesObjekt : TImage;
property BlauesObjekt : TImage;
end;