2 НTL про таймер - тут можно так сделать:
есть глобальная переменная к примеру mytime:dword;
и вот перед включением таймера ты делаеш mytime := GetTickCount();
затем при срабатывании таймера тоже самое всегда делаеш.
Чтобы узнать сколько осталось времени, то делаеш так:
Timer1.inverval - (GetTickCount() - mytime) и получиш значение в микросекундах.