Смена стиля шрифта

[Pein95]

procedure TForm1.sSpeedButton12Click(Sender: TObject);
begin
 if tag=0 then
   begin
    sRichEdit1.SelAttributes.style:=sRichEdit1.SelAttributes.style + [fsBold];
    sspeedbutton1.Tag:=1;
   end
   else
   begin
    sRichEdit1.SelAttributes.style:=sRichEdit1.SelAttributes.style+[];
    sspeedbutton1.Tag:=0;
   end;

end;

как сделать так чтоб после второго нажатия на кнопку стиль шрифта возвращалса в исходное положение ета процедура изменяет шрифт токо на жырный( Зарание спасибо

[ArtGrek]

    RichEdit1.SelAttributes.style:=RichEdit1.SelAttributes.style - [fsBold];

[Pein95]

не работает(может ето у меня алгоритм не правильный?

[ArtGrek]

var
  Form1: TForm1;
  a: boolean = True;

implementation

{$R *.dfm}

procedure TForm1.sSpeedButton1Click(Sender: TObject);
begin
 if a then
   begin
    sRichEdit1.SelAttributes.style:=sRichEdit1.SelAttributes.style + [fsBold];
    a := false;
   end
   else
   begin
    sRichEdit1.SelAttributes.style:=sRichEdit1.SelAttributes.style - [fsBold];
    a := true;
   end;
end;