[reevil]

Código Delphi [-]
if(!((Key >= 48 && Key <= 57)|| Key == 8))
Key = 0;

que tal asi?

de esa manera te permite tambien el backspace
saludos