function TForm1.openport(name: string): thandle;
var
 DCB   : TDCB;
 port:thandle;
begin
  Port := CreateFile(PChar(name),
                      GENERIC_READ + GENERIC_WRITE,
                      0, nil,
                      OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  // 2. Контроль ошибок
  if Port = INVALID_HANDLE_VALUE then begin
   showmessage('port opening error');
   exit;
  end;
  // 3. Чтение текущих настроек порта
  if GetCommState(Port, DCB) then ;
  // 4. Настройки:
  // Скорость обмена
  DCB.BaudRate := CBR_4800;
  // Число бит на символ
  DCB.ByteSize := 8;
  // Стоп-биты
  DCB.StopBits :=OneStopBit;
  // Четность
  DCB.Parity   := NOPARITY;
  DCB.Flags := 20625;
  // 5. Передача настроек
  if not SetCommState(Port, DCB) then {ошибка настройки порта};
  // 6. Настройка буферов порта (очередей ввода и вывода)
  if not SetupComm(Port, 16, 16) then {ошибка настройки буферов};
  //настройка таймаутов чтения и записи
  commtimeouts.ReadIntervalTimeout:=10;
  commtimeouts.ReadTotalTimeoutMultiplier:=2;
  commtimeouts.ReadTotalTimeoutConstant:=8;
  commtimeouts.WriteTotalTimeoutMultiplier:=1;
  commtimeouts.WriteTotalTimeoutConstant:=1;
  setcommtimeouts(port,commtimeouts);
  result:=port;
end;