TTimer в Delphi

[AlexandrSid]

В общем надо перед запуском цикла for, while не важно запустить таймер, а по окончанию цикла его остановить для замера времени.

Делаю так

var j:integer;

procedure TForm1.TimeFor
 const t = 10;
 var i:integer
begin
  Timer1.Interval := t;
  for i := 0 to 1000 do begin
  //Выполнение цикла
  end;
  Timer1.Interval := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := IntToStr(j);
  j := j + 1;
end;

Таймер не работает, но если убрать цикл то все нормально. Подскажите в чем проблема я с TTimer первый раз столкнулся.

[Stilet]

 Timer1.Interval := t;   
  Timer.Enable:=true
  for i := 0 to 1000 do begin   
  //Выполнение цикла   
  end;   
  Timer1.Enable:=false

Только замер времени по другому лучше сделать.

[AlexandrSid]

Сделал как ты сказал, все равно не работает. Проверил в отладчике он даже в процедуру 'procedure TForm1.Timer1Timer(Sender: TObject);' не заходит.

Только замер времени по другому лучше сделать.

Подскажи как

[mutabor]

Через GetTickCount, смотри в справке.
Засек в начале, засек в конце, посчитал разницу.

[vitalik007]

А лучше через QueryPeroformanceCounter.
Будет более точные результаты.Надо пример обращайся

[Stilet]

не заходит.

Значит не прицепил ты ее к таймеру.
Вот Мутабор верно сказал, так и делай.

[B_N]

Таймером такие вещи не делают.
http://programmersforum.ru/showthread.php?t=18009

[AlexandrSid]

Все понятно, всем спасибо