Abfangen von Fehleingaben

[happyaura]

die kann ich nicht abfangen? also mein code hat soweit den gewünschten erfolg:

Delphi-Quellcode:

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
Var Zahlen:set of Char;
begin
   Zahlen:=['1','2','3','4','5','6','7','8','9','0',#8,#37,#39,#13];
        //zahlen + backspace, pfeil links/rechts, enter

   If not (Key in Zahlen) Then
     Key:=#0;


  if key=#13 then
  begin
    Key:=#0;
    buttonclick(button1);
  end;

end;

nur del fehlt da eben noch