Hallo,
der Code funktioniert bei mir ohne Probleme.
Du kannst übrigens auch "else" nutzen:
Delphi-Quellcode:
if Toolbutton1.Down then
begin
if mark = '' then richedit1.Font.Style := richedit1.font.style + [fsbold] else
richedit1.SelAttributes.style := richedit1.font.style + [fsbold];
end else
begin
if mark = '' then richedit1.font.Style := Richedit1.font.style - [fsbold] else
richedit1.SelAttributes.style := richedit1.Font.style -[fsbold];
end;