[BrunoBsso]

En D2010 hay una propiedad de los TEdit que se llama NumbersOnly, obviamente acepta solo números y caracteres no imprimibles (#0 al #32).
Si lo querés hacer vos mismo, tendrías que hacer algo como:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
  CARAC_NO_IMPRIMIBLES = [#0..#32]; //Podrías sacar el #32 que es la barra espaciadora
  NUMEROS = ['0'..'9']; //Acá hacé un conjunto de los caracteres que quieras permitir
  CARAC_HABILITADOS = CARAC_NO_IMPRIMIBLES+NUMEROS; //Este conjunto es la unión de los 2 anteriores, se podría hacer en uno solo como [#0..#32,'0'..'9'] pero lo hice así para que se entienda
begin
  if NOT(Key IN CARAC_HABILITADOS) then //Si la tecla pulsada (key) no está en el conjunto de los permitidos
    Key:=#0; //Hago que esa tecla valga nada (null)
end;

Con eso habilitás solamente todos los números.
Claro que podés acomodarlo a tu estilo.
Saludos!!!