como hago que un edit solo entren numeros

[lazarous]

como valido para que en un edit soo meta numeros?

estoy utilizanco con el evento on keypress pero es que asi es un coñazo

esto es lo que pongo:

procedure TPresupuestos.Cantidad1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['a'..'z','A'..'Z','ñ','Ñ','.',' ',','] then
//los .. sirven pa desde tal a cual
//asi si mete alguno que sea estos no deja teclearlos pero de estaforma
//tengo que validad todos los caracteres asscii
key:=chr(0);
end;



si alguien sabe como hacer que cont Gracias