Check 是TestCase 类提供的一个方法。以下是TestCase 的实现代码：

　　如果Check 没有通过的话，Dunit 将报错。错误提示在第二个参数中定义，其他有关类及方法的定义请看连机文档，文档放在Dunit 安装目录docAPIIDH_Library_DUnit_-_Xtreme_Unit_Testing_for_Delphi.htmInitialzation 代码完成测试单元的注册。

　　修改Project 主文件

　　运行前的后一步是修改Project 主文件TestProject.dpr。先使用菜单Project->View Source 打开TestProject.dpr.

　　修改后的代码如下：

       program TestProject;
       uses
       Forms，
       TestFrameWork，
       GUITestRunner，
       TestUnit in 'TestUnit.pas';
       {$R *.res}
       begin
              Application.Initialize;
       //Application.Run;
       GUITestRunner.RunRegisteredTests;
       end.

　　上面的加粗代码是要增加和修改。