DBGrid1 中输入的有效验证问题(5分)

求教:
有一个table1 ,在DBGrid1 显示, 问题是如何做到: table1的一个字段
要进行有效性验证,若输入不合要求,光标怎样停留在原处不动?
下面的程序,有效性倒是能检查,可光标不能停留,

type Einvalid =class(Exception);
procedure TForm1.Table1AValidate(Sender: TField);
begin
try
// 比如:不能为123 !
if table1.FieldByName('A').asinteger=123 then
raise Einvalid.Create(' 输入错误 ');
except
on Einvalid do
application.messagebox('输入错误', ' 提示',MB_OK);
end;
end;

你只要在table中该字段的onvalidate事件中进行判断，如果
不符合要求，则 raise exception.Create（' 输入错误 '）就行了

很对不起:
这个问题是 我输入上次输入错误造成的重复问题,两次的一个
大家可以看 ' DBGrid1 中 ' 的讨论,