Man könnte das ganze gleich bei Eingabe in das Edit-Feld mit Hilfe des Ereignisses OnKeyDown prüfen:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key>='0') AND (key<='9') then
Key:=#0;
end;
Oder man verwendet das KeyDown Ereignis.
Da bekommst Du den
ASCII-Code des Zeichens das der Benutzer eingegeben hat. Wenn dieser nicht zwischen 48 und 57 liegt ist es keine Ziffer, falls doch musst du ihm den Wert 0 zuweisen.
Der SourceCode ist ähnlich dem obigen, darum schreibe ich ihn hier nicht nochmal hin.
EDIT:
Komisch, ebend wurden mir noch keine Antwort-Beiträge angezeigt - blöder Cache
Wenn du das ganze sofort bei der Eingabe machst sparst du dir die nachträgliche Überprüfung - ein Eingeben von Ziffern ist dann nämlich gar nicht erst möglich.