Проблемы в работе со временем

[-BlindGuardian-]

Доброго времени суток. Я аматор в программировании, поэтому не удивляйтесь если прогу помощи в глупых вопросах. Итак...
Пишу программу для психологических тестов - скорость реакции, и тому подобное. Есть такой вот тест - 120 раз на экран выводиться один из 9 элементов: Треугольник, круг, квадрат; Желтый, зеленый, красный обьект; название животного, растения, неживого предмета. Изначально он находится на экране 900 мс, перерыв между ними 200 мс. Пользователь должен при выведении определенного обьекта нажимать либо левый ctrl либо правый. Если он нажал правильно - мы уменьшаем время нахождения обьекта на экране на 20 мс, если неправильно, или неуспел - увеличиваем. Код прилагается, ниже расскажу о проблеме.

procedure Delay(dwMilliseconds: Longint);
 var
   iStart, iStop: DWORD;
 begin
   iStart := GetTickCount;
   repeat
     iStop := GetTickCount;
     Application.ProcessMessages;
   until (iStop - iStart) >= dwMilliseconds;
end;

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
t1:=900;
t2:=200;
d1:=gettickcount;
for i1:=1 to 120 do
  begin
  randomize;
  a:=random(9);
  if a=0 then
    begin
    flag:=true;                         //показатель нажатия кнопки
    image1.visible:=true;           // выводим квадратик на экран
    delay(t1);                         //перерыв в 900мс
    image1.visible:=false;          //прячем квадратик
    if flag=true then                 //если кнопка не была нажата, то...
      begin
      t1:=t1+20;
      label2.caption:=inttostr(t1);
      end;
    delay(t2);                         //200 мс на экране ничего нет, а потом снова рандомайз.
    end;
  if a=1 then
    begin
    flag:=true;
    image2.visible:=true;        // Треугольник
    delay(t1);
    image2.visible:=false;
    if flag=true then
      begin
      t1:=t1+20;
      label2.caption:=inttostr(t1);
      end;
    delay(t2);
    end;
  if a=2 then
    begin
    flag:=true;
    image3.visible:=true;        // Круг
    delay(t1);
    image3.visible:=false;
    if flag=true then
      begin
      t1:=t1+20;
      label2.caption:=inttostr(t1);
      end;
    delay(t2);
    end;
//...ля-ля-ля-ля, дальше по аналогии все.
  end;
  d2:=gettickcount-1100; //Погрешность расчета в среднем составляет 1-1.2 секунд за 120 тиков. Проверено
  d:=d2-d1;
  label5.caption:='Тест пройден за'+inttostr(d)+'ms';
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (getkeystate(VK_LCONTROL)<0) and (flag=true){если кнопка еще не нажата} and ((image3.visible=true)
or (image4.visible=true) or (label3.visible=true)) {если один из нужных нам обьектов на экране} then
  begin
  flag:=false;
  t1:=t1-20;                         // Левый кнтрл в тему
  label2.caption:=inttostr(t1);
  end;
if (getkeystate(vk_lcontrol)<0) and (image3.visible=false) and (image4.visible=false)
and (label3.visible=false) then
  begin
  flag:=false;
  t1:=t1+20;                          // Левый кнтрл мимо
  label2.caption:=inttostr(t1);
  end;
if (getkeystate(VK_RCONTROL)<0) and (flag=true) and ((image1.visible=true)
or (image5.visible=true) or (label4.Visible=true)) then
  begin
  flag:=false;
  t1:=t1-20;                          //Правый кнтрл в тему
  label2.caption:=inttostr(t1);
  end;
if  (getkeystate(VK_RCONTROL)<0) and (image1.visible=false) and (image5.visible=false)
and (label4.Visible=false) then
  begin
  flag:=false;
  t1:=t1+20;                          //Правый кнтрл мимо
  label2.caption:=inttostr(t1);
  end;
end;

Работат усе. Почти. Теперь о проблеме - как видите, допустим мы довели программу до такого, что длительность нахождения картинки на экране равна 3 секунды. Так вот, вышла она на экран, мы на 0.3 секундах нажали на кнопку, и 2.7 секунды должны еще ждать пока картинка исчезнет. Так быть недолжно. Как сделать так, чтобы по нажатию картинка сразу исчезала. По идее должно быть чтото такое:
есть некая переменная x которая наращивает свое значение со временем - очень маленьким - таймер не подойдет.

...ля-ля-ля
if a=1 then
    begin
    flag:=true;
    x:=0;
    image2.visible:=true;  // Треугольник
    //делаем чето с переменной х
    if (flag=true) or (x=t1) then
       begin
       image2.visible:=false; 
       t1:=t1+20;
       label2.caption:=inttostr(t1);
       end;
    delay(t2);
    end;
...ля-ля-ля

Помогите бедному ученику - студенту, запарился уже

[maxionans]

Насколько я понял из твоего опасного кода , ты используешь Flag для определения того, была ли нажата кнопка или нет. Если это так, то нужно немного изменить процедуру Delay таким образом:

procedure Delay(dwMilliseconds: Longint);
 var
   iStart, iStop: DWORD;
 begin
   iStart := GetTickCount;
   repeat
     iStop := GetTickCount;
     Application.ProcessMessages;
   until ( ( iStop - iStart) >= dwMilliseconds ) or not Flag;
end

Тогда она будет прерываться, как только Flag устанвлен в False.

[-BlindGuardian-]

Спасибо, прекрасное решение Премного благодарен.

[maxionans]

Всегда пожалуйста