Замер времени выполнения

[nickel-j]

Здравствуйте.
Итак, требуется замерить время исполнения процедуры. Для этого используется переменная time, при создании формы равная 0. Таймер изначально выключен, интервал=1 милисекунда. Сама процедура:

begin
 randomize;
 if Edit1.text='' then i:=1000 else i:=strtoint(Edit1.Text);
 if Edit2.text='' then j:=1 else j:=strtoint(Edit2.Text);
 if Edit3.text='' then k:=255 else k:=strtoint(Edit3.Text);
 timer1.Enabled:=true;//включаем таймер
 for c:=1 to i do
  begin
    wrd:='';
    leng:=j+random(k-j+1);
    for l:=1 to leng do
     wrd:=wrd+chr(random(26)+65);
    ADOTable1.InsertRecord([wrd])
  end;
 timer1.Enabled:=false; //выключаем таймер
 label5.Caption:=inttostr(time)
end;

Обработчик события по таймеру:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 inc(time)
end;

В процедуре происходит заполнение базы данных рандомными значениями строчного типа, по умолчанию 1000 записей, ЦП грузится на 100% секунд 5, однако таймер не срабатывает ни разу, в конце выдаётся значение 0. Пробовал выводить сообщение по таймеру - тоже не выводится, значит событие вообще не происходит. Что же неверно?

[Пепел Феникса]

изучите работу таймеров.
я думаю вам надо чтото типа

var Start:TDateTime;
begin 
 randomize;
 if Edit1.text='' then i:=1000 else i:=strtoint(Edit1.Text);
 if Edit2.text='' then j:=1 else j:=strtoint(Edit2.Text);
 if Edit3.text='' then k:=255 else k:=strtoint(Edit3.Text);
 Start:=Now;
 for c:=1 to i do
  begin
    wrd:='';
    leng:=j+random(k-j+1);
    for l:=1 to leng do
     wrd:=wrd+chr(random(26)+65);
    ADOTable1.InsertRecord([wrd])
  end;
 label5.Caption:=inttostr(SecondsBitween(Start,Now));
end;

чтото типа такого(помоему DateUtils надо в uses добавить)

[nickel-j]

Спасибо, работает (SecondsBeetween), вот как раз и выдал 5 секунд, но это слишком грубая оценка - необходим более точный замер, так что буду смотреть, что можно сделать с таймером

[nickel-j]

нашел в DateUtils millisecondsbetween - то, что доктор прописал))