Жирный/курсив/подчеркивание в текстовом редакторе

[Celica]

Добрый вечер. Пишу простенький текстовый редактор на подобие WordPad, возникла трудность: Например, написать любое слово. Если выделить все слово и сделать его жирным, а потом снова выделить и нажать курсив, "жирность" сменяется курсивом, хотя курсив должен добавляться. Не знаю как победить, буду рада вашей помощи. У меня сейчас это выглядит так:

procedure TForm3.ToolButton10Click(Sender: TObject);
begin
    If ToolButton10.Down
then  RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsitalic]
 else RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style-[fsitalic];
end;

procedure TForm3.ToolButton11Click(Sender: TObject);
begin
   If ToolButton11.Down
then  RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsunderline]
 else RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style-[fsunderline];
end;

procedure TForm3.ToolButton9Click(Sender: TObject);
begin
If ToolButton9.Down
then  RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsBold]
 else RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style-[fsBold];
end;

Спасибо.

[Stilet]

Протестил твой код на SpeedButton - все работает как надо...

[Celica]

Извините, я не знаю что такое SpeedButton

[IT-man]

Это кнопка на ней молния нарисована во вкладке advanced

[Celica]

Спасибо большое! Редактирую пост уже раз третий, потому что постоянно что-то меняю в коде и действительное уже не соответствует написанному.
Простите мне мое ламерство, но "потестить" на speedbutton - это просто сделать, чтобы именно по щелчку на speedbutton менялся стиль текста (вместо привычной мне ToolButton)? Если это так, то - да, если выделять целое слово и менять стили, они будут добавляться, что хорошо. Но если, например, в слове "Телефон" выделить "леф" и сделать жирным, а потом выделить "фо" и задать курсив, то "ф" из жирной превратится в курсив. Косяк