//Инициализация COM-порта
function SetupCOMPort(ComFile: THandle): Boolean;
const RxBufferSize = 256;
      TxBufferSize = 256;
var DCB: TDCB;
    Config: string;
    CommTimeouts: TCommTimeouts;
//Инициализация COM-порта
begin
  Result := True;
  if not SetupComm(ComFile, RxBufferSize, TxBufferSize) then Result := False;
  //Инициализация COM-порта
  if not GetCommState(ComFile, DCB) then  Result := False;
  Config := 'baud=9600 parity=n data=8 stop=1';
  if not BuildCommDCB(@Config[1], DCB) then Result := False;
  if not SetCommState(ComFile, DCB) then Result := False;
  with CommTimeouts do begin
    ReadIntervalTimeout         := 0;
    ReadTotalTimeoutMultiplier  := 0;
    ReadTotalTimeoutConstant    := 1000;
    WriteTotalTimeoutMultiplier := 0;
    WriteTotalTimeoutConstant   := 1000;
  end;
  if not SetCommTimeouts(ComFile, CommTimeouts) then Result := False;
end;
//Инициализация COM-порта