Pero, tal como comentó Neftali, la tecla sí que está asignada. Más bien parece ser un problema con la longitud del texto seleccionado. En algún lugar del código debe tener un condicional:
Código Delphi
[-]
if SelLength > 0 then
DeleteSelection(...);
Haz una traza a ver qué sale.
// Saludos