procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
try
x:=strtoint(edit1.Text);
except
showmessage('你输入的不是数字！');
end;
end;
//我的这段处理异常的句子为什么不能处理异常?我在edit1中输入字母A时,怎么程序没有提示"你输入的不是数字！"

你把你的代码改成这样试试看．
procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
try
{$v+}
　x:=strtoint(edit1.Text);
except
showmessage('你输入的不是数字！');
end;
end;

如果在调试状态执行，出现错误时不要终止，继续就能看到。

或者单独执行编译的 EXE 文件可看到。

我执行EXE文件就看到我设置的提示了,谢谢各位!