Listbox mit Farbflächendarstellung

[to-wer]

genau das war es. Habe im Objektinspektor ItemIndex auf 0 gesetzt und es stürzt nicht mehr ab.
Nur sind alle Einträge in der gleichen Hintergrundfarbe geschrieben.
Ist auch logisch, da er auf 0 steht und die Farbe von Polyneon[0] verwendet.
Wie bringe ich es dazu, den Index parallel zu ondraw hochzuzählen?

Hatte es zwischenzeitlich schon mit Combobox1.OnDrawItem versucht. Da kommt die Meldung "nicht genügend wirkliche Parameter".
Notfalls packe ich die Farbnamen und die Farben selbst zusammen in die Combobox und ziehe mir mit Left und Right$ die entsprechenden Parameter heraus. Das wäre aber der letzte Plan, wenn alles andere nichts wird.