Win32API: Оптимальная организация асинхронного чтения COM-порта в отдельном потоке

Нашёл в инете несколько неплохих док по работе с COM-портом на Win32API (Титов, Кузан, Терехов и др.).
В одной из них предлагается следующий код для потока:

Код:

procedure TReadThread.Execute;

var

 ComStat: TComStat;

 dwMask, dwError: DWORD;

 OverRead: TOverlapped;

 Buf: array[0..$FF] of Byte;

 dwRead: DWORD;

begin

 OverRead.hEvent := CreateEvent(nil, True, False, nil);

 if OverRead.hEvent = Null then

  raise Exception.Create('Error creating read event');

 FreeOnTerminate := True; 



 while not Terminated do

 begin

   if not WaitCommEvent(hPort, dwMask, @OverRead) then

   begin

    if GetLastError = ERROR_IO_PENDING then

      WaitForSingleObject(OverRead.hEvent, INFINITE)

    else

      raise Exception.Create('Error waiting port event');

   end;

   if not ClearCommError(hPort, dwError, @ComStat) then

     raise Exception.Create('Error clearing port'); 

  dwRead := ComStat.cbInQue; 

  if dwRead > 0 then

   begin

     if not ReadFile(hPort, Buf, dwRead, dwRead, @OverRead) then

       raise Exception.Create('Error reading port');

     // В Buf находятся прочитанные байты

     // Далее идет обработка принятых байтов

   end;

end; {while}

end;

1. Не совсем ясен выделенный фрагмент. Функция WaitCommEvent инициирует процесс слежки за возникновением событий, отслеживаемых портом. После выполнения этой функции объект hEvent структуры OverRead будет установлен в сигнальное сотояние, если произойдёт какое-либо событие, отслеживаемое портом. Далее мы ждём функцией WaitForSingleObject(OverRead.hEvent, INFINITE), пока объект OverRead.hEvent не будет установлен в сигнальное сотояние. Нам здесь нужно ждать до тех пор, пока не придёт первый символ (во входной буфер COM-порта). Но объект Event может быть установлен в сигнальное сотояние при любом событии, отслеживаемом портом.

Допустим, в этом фрагменте кода подразумевается, что порт отслеживает только событие прихода во входной буфер первого символа (т.е. установили только флаг RXChar функцией SetCommEvent). Тогда всё сработает корректно. Но если порт отслеживает несколько событий ? - следовало бы определить тип события, которое установило hEvent в сигнальное сотояние. И если это не приход символа, то снова вызывать функцию WaitCommEvent, затем WaitForSingleObject, пока не возникнет событие прихода симола.
Но как определить тип события, ведь в структуре OverRead (типа Overlapped) нет полей с информацией о типе произошедшего события, а данные по указателю dwMask не будут определять тип произошедшего события, т.к. функция WaitCommEvent завершится до наступления события (т.е. параметр wdMask функции WaitCommEvent при асинхронных операциях бесполезен) ?

2. Функция ClearCommError в данном фрагменте кода используется только для того, чтобы получить число символов во входном буфере (cbInQue) ?
Или здесь обязателен сброс признака ошибки (т.е. что будет, если ошибку не сбросить) ?

3. Может ли функция WaitCommEvent в данном фрагменте вернуть 0 (теоретически), в коде этот случай не рассматривается...
Т.е. может ли произойти событие в ходе выполнения этой функции (после сброса hEvent'а функцией) ?

4. Можно ли получить число символов во входном буфере без использования функции ClearCommError ?