Combobox mit tag

[StTüff]

Hallo zusammen!

Ich würde gerne mit jedem Eintrag in einer Combobox einen Integerwert abspeichern.
Mir ist klar, dass ich jedem Eintrag ein Objekt zuordnen kann. Da ich aber nur einen simplen Integerwert benötige, habe ich mir gedacht: Das Tolle an Objektorientierung ist, dass ich mir meine TaggedKombobox selbst bauen kann.
Ich hab dann mal mit so was

Delphi-Quellcode:

TTaggedStrings = class (TStrings)

end;

TTaggedComboBox = class(TComboBox)
  Items:TTaggedStrings;
  
end;

angefangen, aber leider fehlt mir der Plan, wie ich jetzt jedem String einen Integerwert (tag) anhängen kann.

Natürlich kann ich doch auf die "Objektanhängvariante" ausweichen. Mich würde aber die Lösung auf diese Art interessieren. Kann mir da jemand auf die Sprünge helfen?

Gruß,

StTüff