997 при работе с СОМ портом

procedure ForcedConnectToBoard(ForcedPort: string);
begin
if connected = false then
  begin
  hPort := CreateFile(
                      PChar(ForcedPort), //Указываем порт
                      GENERIC_READ or GENERIC_WRITE, //Для чего открываем порт
                      0, //Указываем отсутствие общего доступа к порту
                      nil, //Нет атрибутов защиты
                      OPEN_EXISTING, //Аттрибут открытия порта
                      FILE_FLAG_OVERLAPPED, //Указываем для синхронной работы с портом
                      0 //Не указано, зачем это нужно, но говорят, что нужно
                      );
 
    //Проверка на наличие подключения
    if hPort = INVALID_HANDLE_VALUE //Если Хендл порта не присвоен
          then
            SendToMonitor('Ошибка соединения с портом ' + ForcedPort + SendError)
          else
            begin
            SendtoMonitor('Успешное подключение к плате.');
            //Пишем состояние подключения в переменную
            connected:=true;
            end;
 
    //Настройка порта
    if not GetCommState(hPort, Dcb) //Получаем данные о настройках порта
          then
            SendToMonitor('Ошибка получения данных о состоянии порта' + SendError)
          else
            begin
              //Настраиваем порт
              Dcb.BaudRate := CBR_9600; //Скорость соединения 9600
              Dcb.Parity := NOPARITY; //Нет контроля четности
              Dcb.ByteSize := 8; //1 байт - 8 бит
              Dcb.StopBits := ONESTOPBIT; //1 стоповый бит
            end;
 
    //Установка конфигурации порта
    if not SetCommState(hPort, Dcb)
          then
            SendToMonitor('Ошибка конфигурации порта' + SendError)
          else
            SendToMonitor('Конфигурация порта произведена успешно.');
 
    //Получение структуры CommTimeOut
    if not GetCommTimeouts(hPort, CommTimeouts)
        then SendToMonitor('Ошибка получения данных о таймаутах' + SendError)
          else
            begin
              CommTimeouts.ReadIntervalTimeout :=MAXDWORD;  //Настраиваем ReadFile на немедленный прием всех данных из буфера порта
              CommTimeouts.ReadTotalTimeoutMultiplier := 0; //...настраиваем
              CommTimeouts.ReadTotalTimeoutConstant := 0;   //...и продолжаем настраивать
              CommTimeouts.WriteTotalTimeoutMultiplier := 0;//А для WriteFile таймаут...
              CommTimeouts.WriteTotalTimeoutConstant := 0;  //...не требуется
              //Пишем новые параметры структуры
              SetCommTimeouts(hPort, CommTimeouts); //записываем измененную структуру
            end;
 
    //Очистка порта
    if not PurgeComm(hPort, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or PURGE_RXCLEAR)
          then
            SendToMonitor('Ошибка сброса порта' + SendError)
          else
            SendToMonitor('Порт сброшен и готов к работе.');
 
    //Разделитель в монитор
    SendSeparator;
  end
  else
    SendToMonitor('Подключение уже установлено.');
end;

procedure SendCommand(WriteBuf: PChar);
var
  LenBytesToSend, LenBytesSended: DWORD;
  OverWrite: TOverlapped;
begin
 //Очищаем монитор
 ClearMonitor;
 
 //Получаем количество посылаемых байт
 LenBytesToSend:= SizeOf(WriteBuf);
 
 //Очистка порта
 if not PurgeComm(hPort, PURGE_TXCLEAR or PURGE_RXCLEAR)
      then SendToMonitor('Ошибка сброса порта' + SendError)
      else SendToMonitor('Порт сброшен и готов к работе');
 
 //Создаем событие записи
 OverWrite.hEvent := CreateEvent(nil, True, False, nil);
 if OverWrite.hEvent = Null
  then  SendToMonitor('Ошибка создания события записи' + SendError);
 
 //Собственно запись в порт
 if not WriteFile(
                  hPort,          //Порт, в который ведем запись
                  WriteBuf^,      //Что пишем в порт. ^ - не пойму для чего, без нее тоже вроде нормально работает...
                  LenBytesToSend, //Количество послаемых байт
                  LenBytesSended, //Количество реально посланных байт
                  @OverWrite      //Используем структуру OverLapped для ассинхронной записи
                  )
      then SendToMonitor('Ошибка отправки команды в порт' + SendError)
      else SendToMonitor('Команда успешно отправлена. Количество отправленных байт: ' + IntToStr(LenBytesSended));
 
end;

function  SendError: string;
begin
  //Получение кода последней ошибки для отправки в монитор
  Result:='! Код ошибки: ' + IntToStr(GetLastError);
end;

 //Собственно запись в порт
        WriteFile(
                  hPort,          //Порт, в который ведем запись
                  WriteBuf^,      //Что пишем в порт. ^ - не пойму для чего, без нее тоже вроде нормально работает...
                  LenBytesToSend, //Количество послаемых байт
                  LenBytesSended, //Количество реально посланных байт
                  @OverWrite      //Используем структуру OverLapped для ассинхронной записи
                  );
      waited := WaitForSingleObject(hPort, 10000);
      case waited of
           WAIT_OBJECT_0: SendToMonitor('Команда успешно отправлена. Количество отправленных байт: ' + IntToStr(LenBytesSended));
           Wait_timeout: SendToMonitor('Время ожидания отправки в порт истекло');
           WAIT_FAILED: SendToMonitor('Ошибка отправки команды в порт' + SendError);
           WAIT_ABANDONED: SendToMonitor('Мьютекс шалит. Где-то перекрестные потоки...');
      end;

procedure SendToMonitor(SendedMessage: string);
begin
 Form1.Memo1.Lines.Add(IntToStr(MonitorLine)+')' + SendedMessage);
 MonitorLine:=MonitorLine + 1;
end;