procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
if FUpdating then Exit;
if fsBold in CurrText.Style then
   CurrText.Style := CurrText.Style - [fsBold]
else
   CurrText.Style := CurrText.Style + [fsBold];
End;