Co tutaj jest źle?????????
procedure TForm2.DsFancyButton4Click(Sender: TObject);
begin
if RichEdit1.SelAttributes.Style = [fsBold] then
begin
RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style - [fsBold]
else
RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsBold]
end;