Время работы программы

[Magist]

Моделирую работу обработчика пакетов. Есть вопрос. В исходных данных программы вводится время исследования работы модели. Нужно сделать так, чтобы результат работы программы выводился по прошествии этого времени. Но проблема в том, что программа моделирует поток пакетов всегда разное время и если запустить таймер на введенное время исследования, получится больше чем нужно.
Есть мысль, что можно подсчитать сколько секунд работает программа и отнять это время от введенного пользователем и уже на него запустить таймер, но я не знаю как это осуществить. Подскажите, пожалуйста.

[ОДИНОЧЕСТВО В СЕТИ]

но я не знаю как это осуществить

что осуществить то:
запустить таймер? tmr.interval := время на сколько запустить tmr.enabled:=true
подсчитать сколько секунд работает программа? GetTickCount в помощь
отнять это время от введенного пользователем? переводим в мс отнимаем полученное выше получаем интервал таймера

[Magist]

Подсчитать сколько секунд прога работает

[ОДИНОЧЕСТВО В СЕТИ]

Подсчитать сколько секунд прога работает

k:Longint;
begin
//при начале работы проги
k:=Gettickcount;

.....
//перед окончанием 
k:=Gettickcount-k;
//в к получишь время работы проги в мс
end;

[raxp]

k:= Gettickcount-k;

[Magist]

Спасибо огромное!!! Всё получилось