warum Funktionniert code nicht zum an/aus schalten des Timer

[scp]

Warum nicht einfach so?

Delphi-Quellcode:

procedure TMainForm.Start1Click(Sender: TObject);
begin
if Start1.Caption = 'Start' then
begin
   Timer1.Enabled:=true;
   Start1.Caption:='Stop';
end
else  // Mit else gibts kein Durcheinander
if Start1.Caption = 'Stop' then
begin
   Timer1.Enabled:=False;
   Start1.Caption:='Start';
end;
end;