关于ShowMessage的弹出窗口不显示在最前端的问题

[想到才能做到]

请问哪位大老师遇到过这样的问题？
ShowMessage弹出的提示框有时候会不显示在最前端（偶尔遇到），导致软件所有操作都动不了。反复两次按键盘上的alt+tab组合键进行窗口切换又能显示出提示窗口。

delphi7事件代码如下：
if CheckBox1.Checked then
begin
ADOQueryTmp := nil;
ADOQueryTmp := TADOQuery.Create(ADOQueryTmp);
ADOQueryTmp.Connection := DM1.ADOConnection1;

dm1.ADOConnection1.BeginTrans;
try
s_sql:='update spbm2 set kcje=kcsl*cbjj ';
ADOQueryTmp.Close;
with ADOQueryTmp do
begin
SQL.Clear;
SQL.Add(s_sql);
ExecSQL;
end;
except
dm1.ADOConnection1.RollbackTrans;
ADOQueryTmp.Close;
ADOQueryTmp.Free;
ShowMessage('价值计算失败！');
exit;
end;
//事务结束
dm1.ADOConnection1.CommitTrans;
ADOQueryTmp.Close;
ADOQueryTmp.Free;
ShowMessage('价值计算已完成！');
end;

[cjs5210]

在showmessage前面加一行Application.ProcessMessages

[IORILI]

Application.MessageBox试一下。