[Winny]

Кидай на форму Timer (обязательно поставь Interval на позицию 1). Объяви переменную i в разделе var в самом начале. Поставь у Timer свойство Enabled в False. Пиши в обработчике OnTimer:

Код:

begin
Inc(i,1);
end;

А теперь в начале твоего кода вставь такую строчку:

Код:

Timer1.Enabled:=True

А в конце твоего кода вставь такую строчку:

Код:

Timer1.Enabled:=False;
ShowMessage('Код выполнялся (мс): '+IntToStr(i));