Hi,
ich fasse mal kurz zusammen:
Du überprüft erst, ob überhaupt etwas ausgewählt ist per
RichEdit.SelLength > 0. Wenn ja, dann kannst Du
SelAttributes.Name := ComboBox1.Text setzen (Du brauchst hier nicht über Items.Strings[...] gehen).
Es muss nicht zwingend auf > 0 geprüft werden. > 0 bedeutet, dass Text ausgewählt ist und die Attribute nur auf den ausgewählten Text angewandt werden. Wenn nichts ausgewählt ist und Du es trotzdem zuweist, dann wird der Text, der dann an dieser Stelle getippt wird, mit den neuen Attributen "erstellt".
Falls Du es auch noch anders rum haben willst (also wenn Du versch. Textformatierungen verwendest und Du willst in der ComboBox die aktuell ausgewählte Schriftart auswählen), dann wäre die schlampige Lösung (die gute darfst Du Dir selbst erarbeiten
), dass Du mit einem Timer
SelAttributes.Name ausliest und der ComboBox zuweist.