Здравствуйте, Sky-er!
Предлагаю следующий алгоритм:
Время измеряется с помощью функции QueryPerformanceCounter,
которая возвращает значение системного счётчика
производительности. Количество тактов счётчика за секунду
можно узнать с помощью функции QueryPerformanceFrequency.
Процедура устанавливает интервал таймера и запускает его.
По таймеру зажигается лампочка и начинается отсчет тактов.
По нажатию на пробел вычисляется время задержки, выводится в ListBox, устанавливается новый интервал таймера и таймер запускается.
После m повторов выводится среднее значение в ListBox.
Нечто подобное можно сделать с несколькими лампочками.
Удачи!


Приложение:
const m=5; //количество повторов
var
Freq, StartTime, EndTime: Int64;
i:byte; //счетчик повторов
res:real;
{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
i:=0;
res:=0;
ListBox1.Clear;
Button1.Enabled:=false;
Timer1.Interval:=(random(5)+3)*1000;
Timer1.Enabled:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=false;
// Узнаём частоту условного счётчика тактов
QueryPerformanceFrequency(Freq);
Randomize;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if ((Key=' ')and(Shape1.Visible)) then
begin
QueryPerformanceCounter(EndTime);
res:=res+EndTime-StartTime;
Shape1.Visible:=false;
ListBox1.Items.Add(FloatToStrF((EndTime - StartTime) / Freq * 1000, ffFixed, 10, 2)+' mS');
if i<m then
begin
Timer1.Interval:=(random(5)+3)*1000;
Timer1.Enabled:=true;
end else
begin
Button1.Enabled:=true;
res:=res/m;
ListBox1.Items.Add('Среднее время за '+IntToStr(m)+' попыток'+
FloatToStrF(res / Freq * 1000, ffFixed, 10, 2)+' mS');
end;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
Shape1.Visible:=true;
QueryPerformanceCounter(StartTime);
Timer1.Enabled:=false;
end;