delphi写的斗牛计算器