end;
創建一個測試Project
創建新的Project
再創建一個Project，命名為TestProject。如果沒有和BeTestProject放在同一目錄，將BeTestProject的存放路徑加到加到菜單 Tools->Environment Options 里面的Library->Library Path中。
編寫TestCase
刪除確省的Unit1(Form1)，創建一個的Unit,注意不是Form.
將創建的Unit保存為TestUnit，在interface中加入以下代碼
uses
TestFrameWork,BeTestUnit;
TestFrameWork是每個TestCase都必須使用的，后面要使用的TtestCase等類的定義都在TestFrameWork中。BeTestUnit是將要被測試單元。
定義TestCase，測試類定義代碼如下：
TTestCaseFirst = class(TTestCase)
延伸閱讀
文章來源于領測軟件測試網 http://www.anti-gravitydesign.com/
