Работа c USB-модемом

[Aleksey1111]

Имеется программа для автоматической обработки сообщений с USB-модема, но в последнее время на некотором шаге приходят не те сообщения, которые нужны, как сделать так, чтобы при двух нежелательных сообщениях, программа повторяла второй шаг?

Два нежелательных сообщения: 1- "По техническим причинам ..."; 2- "Абонент с номером ...", под многоточием я подразумеваю, что сообщение дальше может быть любым, то есть программа должна реагировать на первые ключевые слова. На сколько я понимаю, многоточие можно заменить, например, вот так: " if Pos('Абонент с номером ',LSMSs[i].Text)<>0 then"? Верно

Код программы на втором шаге:

if Step=2 then
  begin
    SetSettings;

    if CheckBox1.Checked then
    begin
      Step:=3;
      Memo4.Lines.Add('-> Шаг 2 -> ПРОПУЩЕН');
      Timer1.Enabled:=true;
      exit;
    end;

    Memo4.Lines.Add('-> Шаг 2 -> ЖДУ СМС Ваш подарок абоненту с номером НА ПЕРВЫЙ МОДЕМ');

    LSMSs := FGsmSms.GetAllSMS;

    for i := 0 to Length(LSMSs) - 1 do
    begin
      Memo1.Lines.Add(LSMSs[i].Number);
      Memo1.Lines.Add(LSMSs[i].Time);
      Memo1.Lines.Add(LSMSs[i].Text);

      if Pos('Ваш подарок абоненту с номером ',LSMSs[i].Text)<>0 then
      begin
        FGsmSms.DeleteSMS(i);
        Step:=3;
        Memo4.Lines.Add('-> Шаг 2 -> ВЫПОЛНЕН');
      end;
    end;

    for i := 0 to Length(LSMSs) - 1 do
    begin
      //FGsmSms.DeleteSMS(i);
    end;

    Timer1.Enabled:=true;
    exit;
  end;

Спасибо, буду благодарен желающим помочь.

Закавыченный код еще не видел Пользуйся кнопкой # для оформления кода

[kropotkina-alice]

Сообщение от Aleksey1111

На сколько я понимаю, многоточие можно заменить...

Вы правильно понимаете.
Но "насколько" в данном случае пишется вместе.
Вот если б вы спросили: "А на сколько это тянет?" - тогда раздельно...

[Aleksey1111]

А как сделать так, чтобы программа после двух нежелательных сообщений повторяла второй шаг?

[BARNEY]

может

GOTO