Автоматическое разрешение Ctrl + A выделить все в TMemo?

В элементе управления TMemo Delphi 7 попытка выполнить комбинацию клавиш Ctrl + A для выбора всех ничего не дает (не выбирает все). Итак, я выполнил следующую процедуру:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  C: String;
begin
  if ssCtrl in Shift then begin
    C:= LowerCase(Char(Key));
    if C = 'a' then begin
      Memo1.SelectAll;
    end;
  end;
end;

Есть ли уловка, чтобы мне не приходилось выполнять эту процедуру? А если нет, то выглядит ли эта процедура нормально?