delphi 一个按钮实现两个按钮的作用(开始停止)

  if Timer1.Enabled then

  begin

    Timer1.Enabled := false;

    Button1.Caption := '开始';

  end

  else

  begin

    Timer1.Enabled := true;

    Button1.Caption := '停止';

  end;