[Bargest]

Устанавливаю, стандартно:

Код:

    if not GetCommState(hCom, Dcb) then
    begin
      StandardError('Не удалось получить состояние порта.');
      exit;
    end;

    Dcb.BaudRate := CBR_9600;
    Dcb.Parity := NOPARITY;
    Dcb.ByteSize := 8;
    Dcb.StopBits := ONESTOPBIT;

    if not SetCommState(hCom, Dcb) then
    begin
      StandardError('Не удалось установить состояние порта.');
      exit;
    end;

З.Ы. StandardError - это мой обработчик, там вывод сообщения и освобождение ресурсов.