Toolbar Button + RichEdit

[Störtebeker]

Ich verwende eine RichEdit und möchte dem BOLD Button folgendes zuweisen:

Delphi-Quellcode:

procedure TForm2.ToolButton18Click(Sender: TObject);
begin
if ToolButton18.Down then
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style + [fsBold]
else
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style - [fsBold]
end;

zusätzlich gebe ich dem OnChangeSelection des RichEdit folgende Procedure:

Delphi-Quellcode:

procedure TForm2.RichEdit1SelectionChange(Sender: TObject);
begin
if fsBold in Richedit1.SelAttributes.Style then
  begin
    ToolButton18.Down:=true;
  end else
   begin
    ToolButton18.Down:=false;
  end;
  end;

Aber es wird weder der BOLD button auf Down gesetzt noch wird irgendein effekt erzeugt, der mit BOLD zu tun hat. Das Programm startet ohne Fehler. Bis auf die Sache, dass das BOLD nicht funzt. PLEASE HELP!!