在代碼窗口對Twinform類的定義後面中添加下面的代碼：
//自定義變量
type
suijishu = array [ 1 .. 10 ] of integer ; //用來保存 加數和被加數
deshu = array [ 1 .. 10 ] of integer ; //用來保存 每道題的得數，所填的數，與此比較，判斷對誤
var
sJS : suijishu ; //定義suijishu類型的一個實例
ds : deshu ; //定義deshu類型的一個實例
temp : integer ; //定義一個臨時變量
tishu : integer ; //定義一個變量，存儲已經做得題數
shijian : integer ; //定義一個變量，存儲做題所用的時間
在implementation段後面，添加下面的代碼：
//自定義過程
procedure fenpei( ) ; //給sJS數組分配隨即數值
var
i : integer ;
begin
Randomize ;
for i : = 1 to 10 do
begin
sJS [ i ] : = Random ( 10 ) ;
end ;
end ;
procedure jisuan ( ) ; //得到結果，並保存到ds數組中
var
i : integer ;
begin
temp : = 0 ;
for i : = 1 to 10 do
begin
temp : = temp + sJS [ i ] ;
ds [ 1 ] : = temp ;
end ;
end ;
這裡我們定義了兩個過程fenpei 和 jisuan 。fenpei用來給sJS數組分配隨即數值，這樣就可以出題了，jisuan將得到算數的結果，並保存到ds數組中
做題時，首先是要點擊“出題”按鈕。所以要在TWinForm . Button1 _ Click事件中添加代碼，調用fenpei和jisuan過程來初始化題目並得到答案。之後顯示在label3中，並且開始計時，在label4中顯示正在做第幾題。下面是這裡所要添加的代碼：
