delphi中的随机函数问题，在线等！

Question

下面的代码，让0-300之间的数字随机滚动，按停止按钮时数字显示在LABEL1上，按开始时继续滚动，现在的问题是，想让开始和停止按钮用一个button来实现，请教代码？谢谢！
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Randomize;
  Label1.Caption:=IntToStr(Random(300));
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ？？？？？？？？？
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
if timer1.Enabled then
  timer1.Enabled := false
else
  timer1.Enabled := true;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
if timer1.Enabled then
begin
  Button1.Caption := '停止';
  timer1.Enabled := false;
end
else
begin
  Button1.Caption := '开始';
  timer1.Enabled := true;
end;
end;

Answer 3

if timer1.Enabled then
  timer1.Enabled := false
else
  timer1.Enabled := true;
呵呵，这样的代码，，一句话就可以了嘛Timer1.Enabled := Not(Timer1.Enabled);