Wykrycie dwóch zdarzeń

Jak wykonać coś takiego:

Mam stoper który odlicza od 100 do 0 przy wykorzystaniu komponentu Timer1 z taktem co 1sek.

(w form create przypisuje Liczba:=100;)

begin
  Dec (Liczba);
  if Liczba = 0 then //"ZADANIE"
    begin
       Timer1.Enabled:=FALSE;
       //... inne instrukcje
    end 
end;

Czyli po odczekaniu 100sek program wykonan jakąś instrukcje.
Chcę dodać do programu kolejny warunek czyli żeby z zewnątrz można było przerwać odliczanie 100sek do czasu wykonania "ZADANIA" poprzez przyciśnięcie przycisku. Mam takie urządzenie co monituje swój stan poprzez komende

IOPort.GetLine (numer: Byte);

finkcja ta zwraca "0" lub "1" w zależności czy został naciśnięty przycisk czy nie
0 - nic
1 - naciśnięto przycisk

repeat
until IOPort.GetLine (InpitLine1) = 1;

Nie rozumiem dlaczego nie ustawisz Timer1.Interval = 100*1000 [msek] i następnie
w Timer1.OnTimer

begin
  Timer1.Enabled:=FALSE;//wyłączenie na czas wykonania zadania
  //... inne instrukcje
  Timer1.Enabled:=True;//włączenie
end 

Ponieważ używam wizualizację odmierzanego czasu czyli od 100 do 0 leci po kolei 100,99,98,97...,0 i teraz jak dojdzie do zero to wykonuje się "ZADANIE" lecz chcę wprowadzić że w czasie oczekiwania tych 100sek można przerwać odliczanie poprzez wykrycie przez IOPort naciśniętego przycisku.

Czyli mamy dwa zdarzenia jedno zlicza od 100..0 a drugie oczekuje na sygnał - wynikiem jednego z nich jest zatrzymanie drugiego i wykonania "ZADANIA". Dwa niezależne od siebie zdarzenia które mają wpływ na uruchomienia ZADANIA.

W drugim zdarzeniu, po naciśnięciu guzika ustaw sobie Liczba=1, wtedy zdarzenie w Timerze wywoła się przy najbliższym sprawdzeniu

można przerwać odliczanie poprzez wykrycie przez IOPort naciśniętego przycisku.

Timer1.Enabled:=false;. Banał.

Następnym razem może poczytaj zamiast zadawać banalne pytanie.