timer1.interval

[BB2000]

как реалезуется события обработки таймера?
Хотя бы код в студию.

[phomm]

timer.interval := 1000;
...
var ticker : byte = 1;

procedure tform1.ontimer...
...
if ticker = 30 
  then begin
  ticker := 0;
  doDaJob();
  end
  else inc(ticker);

if ticker = сколько_вам_надо
  then doanyjob();

старые способы уже перестают работать в связи с переходом на новые крутейшие оси ?

[Mad_Cat]

celovec, а чего должно происходить то?
и тебе не кажется что этот код неверен

var
  gtc: integer;
begin
  gtc := GetTickCount(); // получили тики
  Timer1.Enabled := true; //активизировали таймер
{тут  пройдет меньше секунды}
 if (8000 > GetTickCount() - gtc) then close;// тиков  всегда будет <8000

GetTickCount() - не сработает, так как таймер был запущен на 30 сек. и вот когда эти 30сек отработает, тогда и сработает GetTickCount!
Потому вам и советуют, запускайте таймер на меньшее время и, обрабатывайте это.

это если код выше засунуть в таймер ,а у ТС он в кнопке)

[BB2000]

GetTickCount() - не сработает, так как таймер был запущен на 30 сек. и вот когда эти 30сек отработает, тогда и сработает GetTickCount!
Потому вам и советуют, запускайте таймер на меньшее время и, обрабатывайте это.

[BB2000]

Хм... запарка...
Ну сами посмотрите,
....
Это происходит в тоже время!
ButtomClic(.....);
begin
gtc := GetTickCount(); // получили тики .... в тоже время!
Timer1.Enabled := true; //активизировали таймер .... опять-же!
{тут пройдет меньше секунды}
if (8000 > GetTickCount() - gtc) then close;// тиков всегда будет <8000
end;
Оно (GetTickCount()) запускается вместе с таймером. И отроботает вместе с ним.
Пересмотрите своё отношение к Таймеру, там желательн знать, что мы тут делаем, не говарю, о потоках.
Да, ещё.
Ставьте таймер на минимум 1000 мс.(1-сек) И там обрабатывайте вашу информацию.