title: Automatically allowing Ctrl+A to select all in a TMemo?
body: <p>In Delphi 7's TMemo control, an attempt to do the key combo <code>Ctrl + A</code> to select all does not do anything (doesn't select all). So I've made this procedure:</p>
  
  <pre><code>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;
  </code></pre>
  
  <p>Is there a trick so that I don't have to do this procedure? And if not, then does this procedure look OK?</p>