大虾救命，抽奖程序怎么做呀？？？((100分)

要求号码不停滚动，按任一键就可以停住！
谢谢各位！！！！ []

利用随机函数和TTimer

随机函数和TTimer

procedure form1.onTimer(sender:tobject)
var
I: Integer;
begin
Randomize;
for I := 1 to 500do
begin
Self.caption := inttostr(Random(i));
Application.ProcessMessages
end;
end;

另外在一个Button的onKeyPress上
if key=#13 then
timer1.enable := not timer1.enable;

用数组保存滚动数字，用线程实现暂停、恢复、停止等功能。

procedure TForm1.Timer1Timer(Sender: TObject);
var
temp:word;
str:string;
i,j:byte;
begin
temp:=Random(10000000);
str:=IntToStr(temp);
j:=length(str);
for i:=1 to 7-jdo
str:='0'+str;
Label1.caption:=str;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;

procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if Timer1.Enabled then
Timer1.Enabled:=false
else
Timer1.Enabled:=true;
end;

谢谢大家：）