如何在指定范围内随机取数据，例如3，1，0？？(10分)

如何在指定范围内随机取数据，例如3，1，0？？

function Random [ ( Range: Integer) ];

// 必须先使用Randomize初始化

足球彩票？ 咔咔

Num:Array[0..2] of integer;
Iwant:Integer;
num[0]:=0;
num[1]:=1;
num[2]:=3;

Randomize;
iwant:=num[Random(3)];

呵呵，足球彩票？？
呵呵，不如这样来抓（我刚做的一个）
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
BitBtn1: TBitBtn;
ListBox1: TListBox;
BitBtn2: TBitBtn;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
gNum: integer;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
case gNum of
0 : gNum := 1;
1 : gNum := 3;
3 : gNum := 0;
end;
label1.Caption := IntToStr(gNum);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
gNum := 0;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if timer1.Enabled then
begin
timer1.Enabled := false;
listbox1.Items.Add(label1.Caption);
end
else
begin
timer1.Enabled := true;
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
listbox1.Clear;
end;

end.
我已经买了一些彩票，等着中奖呢，哈哈哈