WORD TtlIn;

!pModule->TTL_IN(&TtlIn);   
DI1 = TtlIn;  

CountDI = 0;

ULONG StartTime = GetTickCount();
   for(int i=0; GetTickCount()-StartTime < 1000; i++)  // кол-во отчетов за 1 сек.
   {
        !pModule->TTL_IN(&TtlIn);   // Запрос состояния
        Form1->DI1 = TtlIn;         // Записываем ответ

        if (Form1->DI1!=DI_save){    // Если состояние изменилось
         DI_save = Form1->DI1;        //Запишем последнее состояние
         CountDI++;            //Счетчик изменения состояний импульса
         }

   }  

DWORD WINAPI ServiceThread(LPVOID lpParameter)
{
        ASYNC_PAR DI;
        ASYNC_PAR DO;
        USHORT DI_save = 0;
        ULONG i,j;
        double Value;
        ULONG TimeN;
        pos = 0;
        AnsiString str;

        while(true)
        {

        write_log("TTheard : proceed = true");
           ::Sleep(1);

                DO.s_Type = L_ASYNC_TTL_OUT;
                DO.Data[0]=DO1|DO2|DO4;
                pI->IoAsync(&DO);
                i=0;

                try
                {

                   EnterCriticalSection(section_harvest);

                        CountDI = 0;
                        ULONG StartTime = GetTickCount();
                        for(int i=0; GetTickCount()-StartTime < 1000; i++)  // кол-во отчетов за 1 сек.
                        {

                                TimeN = GetTickCount();
                                while(GetTickCount() - TimeN < 10) // считываем состояние в т. 10 мс.
                                {

                                        DI.s_Type = L_ASYNC_TTL_INP;
                                        //DI.Data[0] = 1;
                                        pI->IoAsync(&DI);
                                        DI1 = DI.Data[0]&0x1;

                                        if (DI1!=DI_save){
                                        DI_save = DI1;
                                        CountDI++;
                                        }

                                }

                        }

                                DI_countSaved[pos] = CountDI;    // записываем кол-во отчетов за секунду в массив