Отправка смс с помощью GSM модема - C++ Builder - Ответ 5940619

HANDLE ComPort;
 String Port,ppp,Str,Str1;
 Port="COM5";
 ppp="AT+CMGF=1#13"; // как это правильно записать на основе кода дельфи
 Str="AT+CMGF=+79213265559#13";
 Str1="privet#26";
 DCB dcb;
 COMMTIMEOUTS timeouts;
 ComPort=CreateFile(Port.c_str(),GENERIC_READ|GENERIC_WRITE,0,NULL,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,NULL);
       if(ComPort!=INVALID_HANDLE_VALUE)
         {
         Label3->Caption="Подключено";
          GetCommState(ComPort,&dcb);
          //dcb->DCBlength = sizeof(DCB);
         //инициализация структуры DCB
          dcb.BaudRate = StrToInt(9600);       //задаём скорость передачи 9600 бод
          dcb.fBinary = TRUE;                                    //включаем двоичный режим обмена
          dcb.fOutxCtsFlow = FALSE;                              //выключаем режим слежения за сигналом CTS
          dcb.fOutxDsrFlow = FALSE;                              //выключаем режим слежения за сигналом DSR
          dcb.fDtrControl = DTR_CONTROL_DISABLE;                 //отключаем использование линии DTR
          dcb.fDsrSensitivity = FALSE;                           //отключаем восприимчивость драйвера к состоянию линии DSR
          dcb.fNull = FALSE;                                     //разрешить приём нулевых байтов
          dcb.fRtsControl = RTS_CONTROL_DISABLE;                 //отключаем использование линии RTS
          dcb.fAbortOnError = FALSE;                             //отключаем остановку всех операций чтения/записи при ошибке
          dcb.ByteSize = 8;                                      //задаём 8 бит в байте
          dcb.Parity = 0;                                        //отключаем проверку чётности
          dcb.StopBits = 0;                                      //задаём один стоп-бит
          SetCommState(ComPort,&dcb);
          timeouts.ReadIntervalTimeout = 0;     //таймаут между двумя символами
          timeouts.ReadTotalTimeoutMultiplier = 0;  //общий таймаут операции чтения
          timeouts.ReadTotalTimeoutConstant = 0;         //константа для общего таймаута операции чтения
          timeouts.WriteTotalTimeoutMultiplier = 0;      //общий таймаут операции записи
          timeouts.WriteTotalTimeoutConstant = 0;        //константа для общего таймаута операции записи
 
            DWORD *LWrited;
            WriteFile(ComPort,ppp.c_str(),ppp.Length(),LWrited,NULL);
            WriteFile(ComPort,Str.c_str(),Str.Length(),LWrited,NULL);
            WriteFile(ComPort,Str1.c_str(),Str1.Length(),LWrited,NULL);
 
         Sleep(4);
         CloseHandle(ComPort);
 
         }
 
          else
             {
             Label3->Caption="Не подключено";
             }