Hallo und Willkommen in der
DP 
,
wenn Du den Text neu zuweist, kannst Du Dir das Clear auch sparen. Und ist die Methode auch dem Ereignis zugewiesen (im Objektinspektor kontrollieren)? Hast Du einmal einen Haltepunkt gesetzt, und wenn ja, wird dort auch angehalten?
[edit] Achso, jetzt habe ich das erst richtig verstanden. Entwerte einmal ungültige Zeichen, indem Du Key auf #0 setzt.
Delphi-Quellcode:
if not (Key in ['0'..'9']) then
begin
Key := #0;
(Sender as TEdit).Text := '0';
end;
[/edit]