Delphi: Select all with CTRL+A in Memo

A memo field only shows this behavior, if you add the following code in the OnKeyDown event of the memo:

procedure TForm1.Memo1KeyDown(Sender: TObject; 
var Key: Word; Shift: TShiftState);
begin          
  if ((ssCtrl in Shift) and (Key = 65)) then
    TMemo(Sender).SelectAll;  //select content of memo
end;

With this, at every keystroke, it will be looked, whether the user hits the key A while the CTRL key is presed. The 65 is the code of A, which you can also retrieve with ord(A).
2012-09-10 at 22:20

Here's yet a better way to handle it...

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

Thank you I tryed the second it works.

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