Для платы Е330
Обработчик прерывания:

procedure PNIRQHandler(Hndl: THandle);stdcall;far;
begin
A := A + 1;
RESET_IRQ;
end;

Нажатие Кнопки

procedure TForm1.BitBtn1Click(Sender: TObject);
var
I: Cardinal;
begin
A := 0;
// Channels[0] := 0;
SET_FIFO_PARAMETERS_E330(10, 0);
SET_TIME_PARAMETERS_E330(100);
TIMER_INPUT_IRQ_START_E330(@PNIRQHandler);
I := GetTickCount + 5000;
while GetTickCount < I do; //ждем 5 сек
STOP_FUNC_E330;
Form1.Memo1.Lines.Add(IntToStr(A));
end;

Выдает А=1
Почему так?