Интервалы времени

[znickolai84]

Подскажите пожалуйста, как посчтитать время (в сек) между выбором пользователя radiobutton и нажатие на кнопку button.

я делал так:
procedure TForm1.Button1.OnClick(Sender: TObject);
begin
DecodeTime(StartTime, H1, M1, S1, MS1);
DecodeTime(FinishTime, H2, M2, S2, MS2);
x1:=(m1*60)+s1;
x2:=(m2*60)+s2;
t1:=(x2-x1);
end;
//////////////////////////////////////////////////
//НазначитьStartTime1 FinishTime1 ->
procedure TForm1.Activation(Sender: TObject);
begin
starttime:=time;
end;


procedure TForm1.RadiobuttonOnClick(Sender: TObject);
begin
Finishtime:=time;
end;


Причем если с одной RadioButton, то все вроде работает, но у меня их 18!
Если тоже самое сделать для других RadioButton, то уже время считает не правильно, появляется минус (-)
Причем, у меня на форме 3 вопроса, где
1 вопрос - 6 вариантов ответа (можно выбрать только 1 любой из них)

Жду Ваших сообщений, господа программисты!

[Stilet]

А ты всем радиобатонам одну и ту же процедуру помести на OnClick, в ней и замеряй время клика.

[znickolai84]

Т.е
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
finishtime:=time;
end;
- сделать для всех radionutton?
Делал - не получается

[znickolai84]

Stilet, можно немного по подробнее?

[Stilet]

Можно. У радиобатонов есть событие OnClick. НА одном из батончиков создай обработчик этого события, пропиши в нем некие действия.
В этом событии TRadioButton(Sender) даст тебе батончик, по которому кликнеш. Далее для остальных батончиков выбери этот обработчик, а в нем уж запоминай время.