function TfrmMain.OpenCOMDevice( port:string ) : boolean;
var
  ii: Integer;
  IsAvail:boolean;
begin
  if IsCOMConnected then
    CloseCOMDevice;

  LOG_INFO('OpenCOMDevice()', 'Подключение к порту: ' + PChar('\\.\\' + port));

  Result := False;

  try
    hComm:=CreateFile(PChar('\\.\\' + port),//cbDevPorts.Items[cbDevPorts.ItemIndex]),
                      GENERIC_READ or GENERIC_WRITE,
                      0,
                      Nil,
                      OPEN_EXISTING,
                      0,
                      0);

    if hComm = INVALID_HANDLE_VALUE then
    begin
      LOG_ERR('OpenCOMDevice()', 'hComm = INVALID_HANDLE_VALUE ('+SysErrorMessage(GetLastError)+')');
      Exit;
    end;

    ResBool := SetupComm(hComm, 1024, 1024);
    if ResBool = false then
    begin
      LOG_WARN('OpenCOMDevice()', 'SetupComm(hComm, 2048, 2048) = false');
    end;

    if not PurgeComm(hComm, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or PURGE_RXCLEAR) then
    begin
      LOG_WARN('OpenCOMDevice()', 'PurgeComm(hComm, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or PURGE_RXCLEAR) = false');
    end;

    CommTimeouts.ReadIntervalTimeout:=MAXDWORD;
    CommTimeouts.ReadTotalTimeoutMultiplier:=0;
    CommTimeouts.ReadTotalTimeoutConstant:=0;
    CommTimeouts.WriteTotalTimeoutMultiplier:=0;
    CommTimeouts.WriteTotalTimeoutConstant:=0;

    ResBool := SetCommTimeouts(hComm,CommTimeouts);
    if ResBool = false then
    begin
      LOG_ERR('OpenCOMDevice()', 'SetCommTimeouts(hComm,CommTimeouts) = false');
      raise Exception.Create('[SetCommTimeouts(..)] Ошибка при утановке таймингов порта!');
    end;

    OnDeviceConnect;

    Result := True;
  except
    SysErrorMessage(GetLastError);
    CloseHandle(hComm);
    hComm := INVALID_HANDLE_VALUE;
    Result:=False;
  end;
end;