Änderung des Schrift-style

[HTML04]

Ich möchte mit dem folgenden Code bewirken, dass enweder der ausgewählte Text oder der gesamte Text fett-gedruckt wird. Ich habe einen tbscheck benutzt um den jeweiligen Status anzuzeigen. Der Code funktioniert aber nicht. Warum nicht?

Delphi-Quellcode:

procedure TForm2.ToolButton12Click(Sender: TObject);
begin
mark := richedit1.seltext;
if Toolbutton1.Down then
 begin
  if mark = '' then richedit1.Font.Style := richedit1.font.style + [fsbold];
  if mark <> '' then richedit1.SelAttributes.style := richedit1.font.style + [fsbold];
 end
else
 begin
  if mark = '' then richedit1.font.Style := Richedit1.font.style - [fsbold];
  if mark <> '' then richedit1.SelAttributes.style := richedit1.Font.style -[fsbold];
 end;
end;

Schon einmal DANKE im Voraus!!


[edit=Matze][delphi]-Tag repariert. MfG, Matze[/edit]