Специфическое удаление строк из memo

[Raf-9600]

Собсно задача состоит в том, чтобы найти строку в которой есть определённая подстрока и удалить её и все строки после неё.
Я вроде как написал правильный код, но возникает ошибка из-за того что номер строки вычисляется без учета того что в memo работает перенос строк.

      for i := 0 to memo1.Lines.Count-1 do
      begin
        if Pos('7.2.2.0', memo1.Lines[i]) <>0 then
          for j := memo1.Lines.Count-1 DownTo Pos('7.2.2.0', memo1.Lines[i]) do
            memo1.Lines.Delete(memo1.Lines.Count-1);
      end;

То есть Pos выдает допусти 9 строку, но с учетом того что длинные строки переносятся, эта 9-я строка превращаться в 12-ю и memo1.Lines.Delete удаляет больше строк чем должен.

[chertovich]

А зачем вам проход по рядам, если можно искать в строке из свойства Memo1.Lines.Text, после обработки обратно установить новое значение

var
  Value: string;
begin
  Value := Memo1.Lines.Text;

  // Выполняем действия над строкой
 
  Memo1.Lines.Text := Value;

[Serge_Bliznykov]

а если так изменить исходный код?

      for i := 0 to memo1.Lines.Count-1 do
      begin
        if Pos('7.2.2.0', memo1.Lines[i]) <>0 then begin
            for j := memo1.Lines.Count-1 DownTo i do
               memo1.Lines.Delete(j);
            break; {всё удалено, больше в цикле делать нечего - выходим}
        end;
      end;

p.s. не проверял...

[Raf-9600]

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

А зачем вам проход по рядам, если можно искать в строке из свойства Memo1.Lines.Text, после обработки обратно установить новое значение

Ну, другой способ обработки (удаления строк) мне в голову не пришёл...

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

а если так изменить исходный код?

Работает великолепно! Благодарю.