Delphi Edit输入+号（加号）,不允许显示输入符号，清空Edit，显示事件

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key='+' then
  begin
    form2.ShowModal;
    key:=#0;   //关键此步骤
  end;
end;