[L3st4t]

Buenas

Tengo estos 3 codigos:

Código Delphi [-]
IF (NOT(Upcase(Key) In[#8,#32,{'0'..'9'}'A'..'Z','a'..'z','Ñ','ñ'])) then
 begin
  Key:= #0;
  Application.MessageBox('El Valor a Ingresar Debe Ser Numerico','',mb_ok + mb_iconwarning);
  EditCode.Text := '';
  EditCode.SetFocus;
  Exit;
 end;

-----------------------------------------------------------------------------------------

Código Delphi [-]
IF NOT (Key in [#8, ',' ,'0'..'9']) then
 begin
  Key:= #0;
  Application.MessageBox('El Valor a Ingresar Debe Ser Numerico','',mb_ok + mb_iconwarning);
  EditCode.Text := '';
  EditCode.SetFocus;
  Exit;

--------------------------------------------------------------------------------------------

Código Delphi [-]
IF (key <#48) or (key >#57) then
 begin
 IF key<>#8 then
 begin
  Key:= #0;
  Application.MessageBox('El Valor a Ingresar Debe Ser Numerico','',mb_ok + mb_iconwarning); //mensaje
  Edit1.Text := '';
  Edit1.SetFocus;
 end;
 Exit;
 end;
end;

Estos códigos los copie del foro justamente como se interpreta en los mismo para validar un Edit, el detalle esta que no importa si ingreso un numero o una letra siempre me arroja el mismo mensaje por lo tanto la condición no se esta cumpliendo correctamente.

Si ingreso aaa me arroja el mensaje ( Y esta bien así debe ser), pero si ingreso 123, También me arroja el mensaje y no debería ser.

Me gustaría poder conseguir una respuesta concreta ya que he buscado en el foro este tema y es algo complejo en realidad.

También me gustaría que corrigieran los códigos que expuse, he leído post son el MaskEdit, (pero no se como se utiliza) si hay un método mejor al que estoy haciendo seria bueno saberlo.

Gracias por la ayuda que me puedan aportar. Saludos....

Una vez resuelto este hilo me gustaría que tuviera la coletilla de [SOLUCIONADO] porque la verdad que tengo horas buscando y normalmente son los mismos post