Цитата Сообщение от monteg Посмотреть сообщение
ошибся

Size := DWORD_TO_WORD(SysComRead(ComHandle, ADR(rBuf), 1, 0));
if ( size > 0 ) then
size := size + DWORD_TO_WORD(SysComRead(ComHandle, ADR(rBuf[ 1 ]), SIZEOF(rBuf) - 1, 0));
end_if
Вы хорошо подумали когда это написали ?
PS
Все. Утро вечера - сами знаете ..