franroju,
Puedes asignar este código al evento OnKeyPress del Control TEdit:
Código Delphi
[-]
procedure TForm1.CheckNumberKey(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9']) then Key := Chr(0);
end;
El código anterior solo permitirá ingresar números en el Control TEdit, otra opción interesante es el Control TMaskEdit con la mascara de edición 0 para permitir solo números.
Espero sea útil
Nelson.