TComPort：发送短信后如何检查来自AT命令的响应

Question

我在Delphi中使用TComPort组件通过GSM调制解调器发送批量SMS消息。 在发送下一个短信之前，我只需要确保调制解调器回复“确定”即可。 这是我的代码：

  with cds_kontak do
    if not cds_kontak.Eof then
      begin
        sProgressBar1.Position := sProgressBar1.Position + 1;
        ComPort1.WriteStr('at+cmgs="' + cds_kontak.FieldValues['NO_SELULER'] + '"'+#13);
        ComPort1.WriteStr(mmo_sms.Text+#26);
        cds_kontak.Next;
      end

我想插入代码以检查“调制解调器回复”，如果回复为“确定”，则继续下一个列表。