verwende das Ereignis TEdit.KeyDown.
Da bekommst Du den ASCII-Code des Zeichens, daß der Benutzer eingegeben hat. Wenn dieser zwischen 48 und 57 liegt ist es eine Ziffer, anssonsten mußt Du dem Code den Wert 0 zuweisen.
Manfred.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]