Help ME!!请指点不胜感激!

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = '+' then
  begin
    // 做某些事
    //////////////////////////////    // 消去按键
    Key := #0;
  end;
end;