zmiana stylu pisania

Chciałbym, aby w jakimś stringu znalazł się tekst np:
informmacja. Jak to zrobić te pogrubienie używając kodu??

Nie da sie tego zrobic w stringu, co najwyzej w RichEdit, sluzy do tego SelAttributes

RichEdit1.Text := 'informacja';
RichEdit1.SelStart := 5;
RichEdit1.SelLength := 5;
RichEdit1.SelAttributes.Style := [fsBold];

A jak mógłbym zrobić,
RichEdit1.Text:='informacja'+#13+'cosinnegho';
aby w każdym wyrazie pogrubione były 4 ostatnie litery.

Powyzszy przyklad i troche matematyki.

Niestety ale powyższy kod pogrubia mi tylko pierwszy wyraz,

Oczywiście - bo :

RichEdit1.SelStart := x ustawiua początek zaznaczenia na 5tej pozycji w stringu...

RichEdit1.SelLength := y - ustawia długość zaznaczenia... od SelStart
RichEdit1.SelAttributes.Style := [z] - ustawia atrybuty dla zaznaczonego tekstu..

Zatem jeśli coś ma być pogrubione, ale oddzielone byś musiał pierw zaznaczyć jedno - ustawić styl, później drugie - ustawić.. itd..

Teraz jeszcze mam inne pytanie:
Mam jeden składnik RichEdit, dwa przyciski i w tym RichEdit w zależności w który przycisk klikneliśym pojawia się jakiś tekst.
Po naciśnięciu pierwszego wstawiam kod:

tekst.Font.Style:=[fsBold];

I teraz chciałbym, aby po kliknięciui drugiego przyciska, tekst był pisany normalnie, tzn. zwykłym tekstem a nie pogrubionym.

tekst.Font.Style:=[]

Takie coś niestety nie działa

RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style - [fsBold]

Albo jeśli chcesz zdjąć wszystkie style to jest chyba takie coś jak fsNone...

Niestety nie ma takiego czegoś jak fsnone. Także myślałem, że takie coś istnieje, ale widać nie ma tego :(

Hmm u mnie działa richedit1.SelAttributes.style := [];

wszystko jest pod F1 i w demosach delphiego
trudno zajrzec?

Albo jeśli chcesz zdjąć wszystkie style to jest chyba takie coś jak fsNone...

RichEdit1.SelAttributes.Style:=[];