unit uDMemo;

interface

uses
	Classes,
  Vcl.StdCtrls;
	
type
	TDMemo = class(TMemo)
	private
		{ Private declarations }
	public
		{ Public declarations }
		procedure KeyDown(var Key: Word; Shift: TShiftState); override;
	published
		{ Published declarations }
	end;

implementation

uses uTypes;

procedure TDMemo.KeyDown(var Key: Word; Shift: TShiftState);
begin
	if (Key = Ord('A')) and (Shift = [ssCtrl]) then
		SelectAll
	else
		inherited;
end;

end.
