Automatically allowing Ctrl+A to select all in a TMemo?

Question

In Delphi 7\'s TMemo control, an attempt to do the key combo Ctrl + A to select all does not do anything (doesn\'t select all). So I\'ve made this procedure:

<

Answer 1

This is more elegant:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ^A then
  begin
    (Sender as TMemo).SelectAll;
    Key := #0;
  end;
end;