diff --git a/mainform1.pas b/mainform1.pas index 22f793d..0ac1282 100644 --- a/mainform1.pas +++ b/mainform1.pas @@ -526,6 +526,7 @@ procedure TMainForm.ToggleCountdown(Sender: TObject); DisableTimer(); end else + begin if CountdownDone then begin // TODO When restarting after countdown has elapsed, quickly jumps from @@ -535,6 +536,7 @@ procedure TMainForm.ToggleCountdown(Sender: TObject); EndTime := Now + (Timer1.Tag * OneSecond); end; EnableTimer(); + end; end; procedure TMainForm.Countdown(Sender: TObject);