TDBWPRichText not saving changes using .CurrAttr.AddStyle()

Dakota

Hi:

I'm using a TDBWPRichText. I'm using the code below connected to a button to toggle bold text. When I change bold text this way and then post the changes, they do not stick.

Code

procedure TEditContactDlg.DoBold;
begin
  if afsBold in DBWPRichText1.CurrAttr.Style then begin
    DBWPRichText1.CurrAttr.DeleteStyle([afsBold]);
  end else begin
    DBWPRichText1.CurrAttr.AddStyle([afsBold]);
  end;
  DBWPRichText1.SetFocusValues(True);
end;

It works fine if I actually enter a keystroke into the TDBWPRichText control, but if I only change the bold qualities it does not.

Any ideas why, or how to make this happen?

Thanks,
Dale