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;