насколько я понимаю - работаете с момедом таким образом, что показатель работы есть диод на контактах гнезда под RJ11...
кстати,
такой?.
думаю стоит посмотреть настройки порта, да и по коду, попробуйте сделать следующее (лучше отправку засунуть в функцию, результат которой boolean - успех отправки):
Код:
...
TRBuf:String[4];/// вместо PChar;
...
TRBuff:='ATH0';//проверьте буквы в команде, чтобы не кирилица
WriteFile(port,TRBuf[1],Length(TRBuf),nWrite,nil);
if nWrite=Length(TRBuf) then ShowMessage('OK') else ShowMessage('Error '+inttostr(GetLastError));// проверка правильности отправки синхронной работы
...
если говорит 'Error', то ищите ошибку в буфере отправки (TRBuf) - должга содержатся только текстовая информация (в вашем случае только 4 символа) без служебных символов
З.Ы. а может где контакт диода отошел или не в том направлении впаян?))))