Ayuda para enviar SMS con TSdpoSerial

[[duilioisola]]

Quizás tengas que esperar un ">" después de cada línea que envías.

Código Delphi [-]
procedure TForm1.BEnviarClick(Sender: TObject);
var
  strnumero:string;
  rec: string;
begin
  SdpCel.Active:= True;
  strnumero:= EArea.text + ENumero.text;
  //agregar al final ctrl+z (ascii 26)

  SdpCel.WriteData('AT+CMGS="' + strnumero +'"' + #13);
  // Si recibio el comando con el nro. de telefono debe responder ">". 
  rec:= SdpCel.ReadData;
  if (rec <> '>') then
     raise exception "ERROR enviando primera linea. "+rec

  SdpCel.WriteData(MMensaje.Text + #13);
  // Si recibio el texto del mensaje debe responder ">". 
  rec:= SdpCel.ReadData;
  if (rec <> '>') then
     raise exception "ERROR enviando segunda linea. "+rec

  SdpCel.WriteData(#26);
  // Aqui no se si se espera un ">" o un "Ok"
  rec:= SdpCel.ReadData;
  if (rec <> '>') then
     raise exception "ERROR enviando tercera linea. "+rec

  rec:= SdpCel.ReadData;
  if (UpperCase(rec) = 'OK') then 
     ShowMessage('Mensaje enviado correctamente')
end;