TMemo не работает УДИЛИТЬ СТРОКУ

[Ring0Sn]

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

И почему Memo.Lines.Strings[0]=перваяБукваТекста

Вообшето Memo.Lines.Strings[0] это не "перваяБукваТекста", а перваяСтрокаТекста, по большому счету
И вообше, удаляй элементы с конца, а не сначала, чтоб не зависало ничего: (птмчто когда удаляеш не последний элемент, происходит переиндексация)

var
  i: integer;
begin
  for i := Memo1.Lines.Count - 1 downto 0 do begin
    if pos('Product code: ', Memo1.Lines[i]) = 0 then
      Memo1.Lines.Delete(i);
  end;