Запретить ввод в Edit символов, кроме цифр и знаков арифметических операций

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if Key in ['1'..'9','-','+','*','/',#8] then
      begin
         //можно здесь ничего не делать
      end
   else Key:=#0;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, XPMan, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button17: TButton;
    Button18: TButton;
    Edit1: TEdit;
    Image1: TImage;
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  kod: char;
  x,y,z,d,e: real;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Height:=277;
form1.Width:=258;
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'1';
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'2';
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'3';
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'4';
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'5';
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'6';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'7';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'8';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'9';
end;
 
procedure TForm1.Button10Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'0';
end;
 
procedure TForm1.Button11Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+',';
end;
 
procedure TForm1.Button17Click(Sender: TObject);
begin
edit1.Clear;
end;
 
procedure TForm1.Button12Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod:='+';
edit1.Clear;
 
end;
 
procedure TForm1.Button13Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod:='-';
edit1.Clear;
end;
 
procedure TForm1.Button14Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod:='*';
edit1.Clear;
end;
 
procedure TForm1.Button15Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod:='/';
edit1.Clear;
end;
 
 
procedure TForm1.Button18Click(Sender: TObject);
begin
if edit1.Text<>'' then  y:=strtofloat(edit1.text);
case kod of
    '+': z:=x+y;
    '-': z:=x-y;
    '*': z:=x*y;
    '/': z:=x/y;
end;
edit1.Text:=floattostr(z) 
end;
 
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if Key in ['1','2','3','4','5','6','7','8','9','0','-','+','*','/',#8] then
      begin
      end
   else Key:=#0;
end;
 
end.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if not (Key in ['1'..'9','-','+','*','/',#8]) then Key:=#0;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var i: integer;
    s: string;
begin
i := 1;
s := Edit1.Text;
while i <= length(s) do begin
  if not (s[i] in ['0'..'9','-','+','*','/',#8]) then Delete(s, i, 1);
  i := i + 1;
end;
Edit1.Text := s;
//перемещение курсора в последнюю позицию Edit1.Text
//установка выделения с последней позиции, туда же и курсор переместится
Edit1.SelStart:=length(Edit1.Text);
//выделить 0 символов
Edit1.SelLength := 0; 
end;

  if not (s[i] in ['0'..'9','-','+','*','/']) then Delete(s, i, 1);