Question

delphi判断问题

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

end
else
if Button1.caption='停止' then
Button1.caption:='开始';
timer1.Enabled :=true;

end;
这段代码可以运行，但是达不到开始和停止的效果？begin和eng具体加在哪儿我不是很了解，请D达人告知一下，深表感谢!

Answer 1

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

end
else if Button1.caption='停止' then
begin//
Button1.caption:='开始';
timer1.Enabled :=true;
end;//

end;