Formater le texte dans un TRichedit à partir de raccourci

raccourci :
Ctrl + B : gras
Ctrl + I :italique
Ctrl + S : surligné
Ctrl + U :souligné

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
const
KEY_CTRL_B = 02;
KEY_CTRL_I = 9;
KEY_CTRL_S = 19;
KEY_CTRL_U = 21;
begin
With (Sender as TRichEdit).SelAttributes do
case Ord(Key) of
KEY_CTRL_B: begin
Key := #0;
if fsBold in Style then
Style := Style - [fsBold]
else
Style := Style + [fsBold];
end;
KEY_CTRL_I: begin
Key := #0;
if fsItalic in Style then
Style := Style - [fsItalic]
else
Style := Style + [fsItalic];
end;
KEY_CTRL_S: begin
Key := #0;
if fsStrikeout in Style then
Style := Style - [fsStrikeout]
else
Style := Style + [fsStrikeout];
end;
KEY_CTRL_U: begin
Key := #0;
if fsUnderline in Style then
Style := Style - [fsUnderline]
else
Style := Style + [fsUnderline];
end;
end;
end;