Implement ShortCuts (Ctrl+B = Bold etc)

procedure TForm.WPRichText1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var v: Integer;
begin
  if (Key = Integer('B')) and (Shift = [ssctrl]) then
  begin WPRichText1.TextCursor.CurrAttribute.ToggleCharstyle(WPSTY_BOLD);
    Key := 0;
  end
  else if (Key = Integer('I')) and (Shift = [ssctrl]) then
  begin WPRichText1.TextCursor.CurrAttribute.ToggleCharstyle(WPSTY_ITALIC);
    Key := 0;
  end
  else if (Key = Integer('U')) and (Shift = [ssctrl]) then
  begin WPRichText1.TextCursor.CurrAttribute.ToggleCharstyle(WPSTY_UNDERLINE);
    Key := 0;
  end;
end;