Вопрос про таймер

[igroman]

Здраствуйте, у меня возник вопрос по таймеру, я всё никак не могу понять как его решить:
Мне нужно замерить скорость выполнения функции, для этого я расположил timer1 на форме. На каждый тик таймера переменная s инкрементируется.

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

Мне надо чтобы при нажатии на кнопку таймер запускался, выполнялась функция, потом таймер отключается.
Я реализовал это примерно так:

procedure TForm1.Button1Click(Sender: TObject);
begin
s := 0 ;
Timer1.Enabled := True;
    MyFunction;
Timer1.Enabled := False;
Label6.Caption := IntToStr(s);
end;

Но так невышло, подскажите пожайлусто как это правильно сделать.
Заранее спасибо.

[igroman]

Ой, извините, уже нашёл.
Ув. Модераторы пожайлусто закройте тему.