{$R *.dfm}
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key in [VK_ADD, VK_MULTIPLY { ,...] } ]) then
begin
Key := 0;
Memo1.Lines.Add('OnKeyDown: VK_ADD, VK_MULTIPLY, ... pressed');
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if CharInSet(Key, ['+', '-', '/', '*']) then
begin
Key := #0;
Memo1.Lines.Add('OnKeyPress: VK_ADD, VK_.... pressed');
end;
end;
end.