delphi6.0+SQLServer，关于数据库出错信息的捕获

delphi6.0+SQLServer，添加一条记录，表中设有主键，如果主键字段存在相同记录，则报错。那么怎么在delphi做的程序中，把出错信息改成自定义？
例如，表student中，id字段设置主键，原表中存在id：0001，当在插入一个id为0001时报错，那么怎么把SQL送到delphi的这个错误改成自定义的提示？就是把带有红××的消息框改成自己定义的一个messge，告诉用户该id已存在。