为什么我的窗口自动关了?

不好意思,没分了,下次补上,各位走过路过的看看也行....这是一个 "新增设备" 的窗口,但为什么如果不满足下面的条件,而出现提示时,一点的话,这个"新增设备"的窗口也关掉了,郁闷啊?supplier:= trim(ComboBox6.Text);if supplier='' then
begin
ShowMessage('供应商不能为空');
ComboBox6.SetFocus;
Abort;
end;