como hago que un edit solo entren numeros
 

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

gracias
 

gracias a todos ya no me hace falta que lo e leido en otra parte de este foro XD