Habilitar la tecla Delete en ingreso de Numeros en un TEDIT

[AGAG4]

Prueba la siguiente función:

Código Delphi [-]
function ValidaCharNum(Var Key:Char):Char;
var i:integer;
begin
  i:=Ord(Key);
  if (i in[58..241]) or (i in[10..47]) then
    result:=#0
  else result:=key;
end;
//La llamas de la siguiente forma en el evento OnKeyPress.
  key:=ValidaCharNum(key);

Saludos....