写的程序出现《open clipboard失败》的解决办法

Delphi7写的程序winXP下无问题，在win7，win10下粘贴到剪贴板时，总出现“open clipboard失败”的报错；

找到粘贴行：MPHexEditorEx2.CBPaste;

  添加2句：       

Sleep(100);  //100毫秒的缓冲时间，10毫秒都还是造成粘贴板失败的。

Application.ProcessMessages; 

编译，运行后解决问题。

查了一下：
          Application.ProcessMessages;   主要作用使程序在循环时能够相应外界事件。（winxp能够响应外部事件，而win7以上不能；可能是这个原因吧！）

“如果你在循环体内没有application.ProcessMessages这句。当循环开始后，程序就被10000次的这个循环独占了，直到循环结束为止。”