在Delphi中，有一隨機函數，是這樣定義的：
function Random [ ( Range: Integer) ];
其中，參數Range為一整數，
該函數返回值其范圍為：
0< =Random(Range)< Range   (指定Range)
0< =Random< 1   (不帶參數Range)

下面的過程for循環里第一條語句：在屏幕上輸出九九表內乘法的隨機題；
第二條語句：在屏幕上輸出一百以內的加法隨機題。
稍加修改，增加一些條件語句你即可得到得減法、除法及四則混合運算的隨機題。

 1procedure TForm1.Button1Click(Sender: TObject);
 2var
 3I: Integer;
 4begin
 5Randomize;
 6for I := 1 to 10 do begin
 7Canvas.TextOut(20,I*20,
 8IntToStr(Random(9)+1)+'×'+IntToStr(Random(9)+1)+'=');
 9Canvas.TextOut(220,I*20, 
10IntToStr(Random(100))+'+'+IntToStr(Random(100))+'=');
11end;
12end;
13