delphi鼠标响应事件

Question

在from1上添加一个edit控件，当我向里面输入完值后，鼠标单击form1上任何其它部分，则程序就判断edt1.text是否等于'123'。请问怎么实现？
我只会输入完值后按下‘enter’键或其他键，程序会自动判断。以下是我代码：
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  if edt1.text='123'
       ShowMessage('编号已经存在，请重新录入!');  
end;本人菜鸟，谢谢各位！

Answer 1

同意楼上.
在OnExit事件中写入代码就行了
if Edit1.Text='123'
  ShowMessage('Edit1的值为123')
else
  ShowMessage('Edit1的值不等于123')