奇怪: 单步运行程序执行正确,直接RUN程序运行就不对，为什么会这样呢？

Question

奇怪: 单步运行程序执行正确,直接RUN程序运行就不对，为什么会这样呢？
    
   这是一段打印程序，我只要单步运行，就可以显示正确的与数据库连接的打印显示；但是我直接用RUN，程序的调用就不对
   为什么会这样呢？

Answer 1

ZYXLP讲的可能是对的，就是在等待的时候，容易进入死循环，所以我把等待改成了有限次数的等待，这样就避免了死循环，我不知道是不是这里的问题。

Answer 2

注意，在等待的过程中应该调用Application.ProcessMessages;将系统控制权暂时交出。有没有这样呢？
while ... do 
begin
   ..............
   Application.ProcessMessages;
end;

Answer 3

我在程序中使用了rony的方法，直接run还是不行；
后来我在
function TYwReport.Proc : bool;
begin
    if Assigned(FOnProc) then
    OnProc(self);
    result := true;
end;中的if Assigned(FOnProc) then语句，加了断点，运行结果正确，会不会是这一步的问题呢，

Answer 4

采用了Cornerliang的方法，好像暂时能行了，谢谢各位

Answer 5

检查代码多用 while ... do 和 try  except end;