Edit1 Löschen

[GanjalfDerGruene]

Moin moin, Hier mal mein erster Post:
Ich bin nen relativer Delphi-Anfänger (hatten wir jetzt 1/2 Jahr in der Schule, hat aber nicht so viel gebracht). Jedenfalls wollte ich jetzt in einem Programm nen Feld machen, wo man nur Zahlen eingeben kann, und wenn man was anderes eingibt diese gelöscht werden.

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
var entfernung:integer;
begin
       if not (Key in ['0'..'9']) then
         begin
           Edit1.Clear;
           Edit1.Text:='0';
           Edit4.Text:='Nur Zahlen ohne Komma eingeben!';
         end;
end;

Doch das Problem ist, dass, wenn ich zb "a" eingebe dann da "a" und nicht "0" Steh - und hier komm ich nicht weiter (Lazarus 1.0.4).