Удалить строки из MEMO, содержащие определённый символ-(ы) - Delphi

var
i: Integer;

begin

for i := Memo1.Lines.Count - 1 downto 0 do

if Pos('Молоко', Memo1.Lines[i]) = 0 then Memo1.Lines.Delete(i);
end;

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.