procedure TForm1.Button1Click(Sender: TObject);
     var
        n ,m ,x : integer ;

begin
       m:=0;
       x:=1;
      try                         //试着用出错语句.
          n:=strtoint(edit1.Text);
       except
          showmessage('a');
          exit;
       end;
       for x := 1 to n do
          if odd(x) then m:=m+x;


       {while x<=n do
       begin
             if odd(x) then
                m:=m+x;
                x:=x+1;
       end;}
       edit2.Text := inttostr(m)

end;

end.

上面是代码 求1~N的奇数和.
我尝试用TRY 防止用户输入的是字符...但是 用法我看了和教程上面的一样 可运行的时候输入字符 还是会出现错误...百度搜了下 都是 关于它的使用方法... 求教了.