Livebindings Eintrag von TComboBox zur DB von String in integer ändern

[Peter-Pascal]

soweit ich weiß gibt es die LookupComboBox nur bei VCL. Bei FMX kann man in der TFDTable oder im TField die LookupDaten eintragen.
Aber würde sowieso nicht funktionieren, denn die Werte werden nicht aus einer anderen Tabelle gelesen, sondern kommen aus einer Menge.
Es gibt eine Menge zB:
TMenge = (Grün = 0, Gelb = 1, Blau = 2, Rot = 3); Dzu Helper: Menge.ToString
In der Combobox stehen die Strings, aber in der Datenbank möchte ich die Ordnungswerte speichern.
Also statt strings möchte ich in der Datenbank integer haben.
Wahrscheinlich muss ich das per Hand machen und auf Livebindings verzichten