Шлагбаум через СОМ портом очень надо

[MACTAK]

Ребята пишу прогу на диплом один из элементов в ней это авто открытия и закрытия шлагбаума через COM порт
Но не могу догнать как сделать что бы он закрылся нормально.
Открывается он у меня вот так:
FHandle := CreateFile(PChar('com1'),GENERIC_RE AD or GENERIC_WRITE,0,nil,OPEN_EXISTING,F ILE_FLAG_OVERLAPPED, 0);
SetCommBreak(fhandle);
sleep(200);
ClearCommBreak(fhandle);
CloseHandle(FHandle);
То есть подается +12 вольт на (выход TXD) 3 ножка дальше теоретически я предполагаю подсоединить к 9 ножке( вход RI) и к 4 ножке (выход DTR) Датчик пересечения луча.
Проблема: нужна как-то после открытия шлагбаума начать постоянно подавать +12 вольт на 4 ножку (выход DTR) пока не придет +12 вольт на 9 ножку( вход RI) после того как +12 на ножку 9 придет надо чтобы сработала функция подача +12 на (выход TXD) 3 ножка.
Идея заключается в том что датчик пересечения луча разомкнет цепь если в зоне будит машина и не даст закрыть шлагбаум как только машина проехала датчик замкнет цепь +12 вольт придет на 9 ножку и шлагбаум закроется.
Помогите с кодом не могу не как это сделать я только начинаю программировать , а очень сильно надо!!!

[raxp]

OFFTOP >
...ответил на кибере, гоняйся тут за вами.