Delphi и COM-порт.

[ArcaN0id]

Есть платка с 3 кнопками, подключенная к com порту. По нажатию на каждую из кнопок в com порт отсылаются символы 1,2 и 3 соответственно. В проге они считываются с com-порта. Использую CPortLib.
Необходимо сделать что-то типа тестирования с выбором ответа с этих кнопок. Пробовал реализовать считывание с com-порта при помощи repeat until, с первым вопросом проходит все нормально: программа принимает символ, сравнивает с правильным ответом, а со следующими вопросом такое не проходит. Так как прога берет первый принятый символ и сравнивает сразу со всеми вопросами(вариантами ответов).
Как реализовать задачу так, чтобы при нажатии на кнопку сравнивался ответ только с текущим вопросом, а не со всеми сразу? т.е 1ый вопрос > нажатие кнопки > сравнивание с ответом > результат (правильно/не правильно) > 2ой вопрос > нажатие кнопки > сравнивание с ответом > результат... и т.д.
буду благодарен любой помощи....)

[Larboss]

Здравствуйте, приехали. А исходный код где?

На самом деле все делается очень просто. Например, вы можете хранить номер текущего вопроса в переменной. А считывание производить с помощью таймера.

Грубо говоря:
Таймер.

*код получения сигнала с компорта*
***
If (Num_Question=2) and (Answer=3) then ShowMessage('Вы совершенно верно ответили на второй вопрос!');
***

[ArcaN0id]

приходила в голову идея с таймером... ладно вечером попробую, если что напишу

[ArcaN0id]

с таймером вообще не получается... пробую все также с repeat until... сейчас пробую хотябы чтоб по очереди к label1,2,3... присваивался номер нажатой кнопки.... но почему - то при первом нажатии всем лэйблам присваивается номер нажатой кнопки одновременно... как сделать так чтобы прога после первого нажатия присвоила к первому лэйблу, после второго - второму и т.д

begin
i:=0;
for i:=1 to 5 do
begin
repeat
ComPort1.ReadStr(s,1);
Application.ProcessMessages;
s1:=s;
s:='';
until (s1='1') or (s1='2') or (s1='3');
if i=1 then label1.Caption:=s1;
if i=2 then label2.Caption:=s1;
if i=3 then label3.Caption:=s1;
if i=4 then label4.Caption:=s1;
if i=5 then label5.Caption:=s1;
end;
if (s1='1') or (s1='2') or (s1='3') then i:=i+1;
end;
end.

[ArcaN0id]

проблема в том что во время нажатия кнопки, в порт каждую мс отсылается символ, т.е получаем 1111111111. Как сделать чтобы прога приняла только первый символ?