Validar convercion strtoint

[martita]

Hola Lepe, sabes que agregue tu codigo a mi forma pero
sige aceptando letras en la captura. mira este es mi codigo

procedure Tfcorte.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

const Numeros = ['0'..'9'];
begin

if not(chr(key) in numeros) and (key >30) then
key := 0; // que no escriba esa tecla

end;

no se que pasa pero sige aceptando entradas no numericas.
agradeceria muchisimo tu ayuda. Bye.