为什么屏幕总是跳.关不了窗体?

用下面代码关闭窗体出现关不了的问题,屏幕跳个不停,怎么回事啊?
var
      I:Integer;
begin
if messagebox(handle,'您确定要退出当前系统吗？','询问',mb_OKCancel+MB_ICONQUESTION)=idOK then
      for   I:=Screen.FormCount-1 downto 0 do
                        Screen.Forms[I].Close;
  end;