дописать функцию

[brownb]

function parse(str, str2, ob: string): string;
var
len: integer;
begin
  len := length(str);
  result := Copy(ob, pos(str, ob) + len, pos(str2, ob) - pos(str, ob) - len);
end;

1.Нужно переделать функцию чтоб парсила и подсчитывала все слова находящиеся между тегами <br> </br> И добавляла в memo2

2.Подсчитать количество одинаковых слов(указываем сами) в мемо

[PressAnyKey]

pressanykeynow@yandex.ru пишите

[alexcoder]

brownb, обращайтесь e-mail: informatik101@mail.ru
Telegram: @alexcoder1
vk.com/alexcoder1

[Arigato]

Напишите на почту, сделаю:

[Larboss]

ТЗ, срок, бюджет: larbossfreelance@yandex.ru Метка: freelance. Указывайте ссылку на тему форума.