VCL Delphi

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState) ;
begin
if (Key = Ord('A')) and (ssCtrl in Shift) then
begin
TMemo(Sender).SelectAll;
Key := 0;
end;
end;