Moin, Moin.
Wenn es nur darum geht, einen durch den Anwender markierten Textabschnitt mit einem speziellen Attribut zu versehen, sollte dieses hier genügen:
Delphi-Quellcode:
procedure TfoTest16.Button1Click(Sender:TObject);
begin
with RicheEdit1.SelAttributes do Style:=Style+[fsbold];
end;
.. und verwende das neue Attribut immer additiv, sonst wird ein ggf. bereits vorhandenes Attribut wie z.B. kursiv mit der neuen Formatierung entfernt.