Como implementar a utilização das teclas ctrl-a para selecionar todo o texto de um com

Procedure TfrmShowPas.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssCtrl]) then
case Key of
65: TRichEdit(Sender).SelectAll;
end;
end;


{By
Nativo_Gyn
ufgnet@pop.com.br}