Nur Eingabe von Zahlen erlaubt...aber wie

[Corleone]

So habe es jetzt geschafft ein onekeypress ereignis zu erstellen und auch, dass man nur zahlen bzw. Komma eingeben kann. wenn man zum Beispiel jtzt einen Buchstaben eingibt kommt eine Fehlermeldung. nur kommt die Fehlermeldung leider auch wenn ich Backspace drücke. Wie kann ich das machen, dass das bei der Backspace Taste nicht passiert und außerdem würde ich gerne, nach der Fehlermeldung haben, dass das Edit Feld gelöscht wird.

Delphi-Quellcode:

procedure TFormVieleck.EditeckKeyPress(Sender: TObject; var Key: Char);
begin                
  If not(key in ['0'..'9', ','])
  then ShowMessage('Bitte eine ganze Zahl eingeben.')
end;