Надеюсь, ты сделал что-то подобное, для передачи четырех символов

code_18785.txt

И еще раз проверь совпадение скоростей и количество битов передачи. Все параметры ншего компонента Com должны совпадат с параметрами Com QBasic-a
------------ Дoбавленo в 01.37:
Да, возможно в конце надо ввести последовательность 1310. Тут, проверять надо