Delphi编写莫尔斯码生成器