i, j, k: Integer;
begin
  j := 1;
  repeat
    j := Pos(memo2.Lines[i], memo1.text, j);
    if j > 0 then
    begin
      j := j + length(memo2.Lines[i]);
      k := pos(#13, memo1.Text, j+1);

      if k = 0 then
        k := length(memo1.text);

      Memo3.Lines.Add(copy(memo1.Text, j, k-j));
    end;
  until j = 0;
end;

i, j, k: Integer;//объявление переменных тут int i,j,k
begin //{
  j := 1;//j=1
  repeat//входим в цикл
    j := Pos(memo2.Lines[i], memo1.text, j);//ищем позицию
    if j > 0 then//если j>0
    begin//{
      j := j + length(memo2.Lines[i]);//в j заносим j+длину массива
      k := pos(#13, memo1.Text, j+1);//в k заносим позицию

      if k = 0 then//если k = 0
        k := length(memo1.text);//заносим в k длину

      Memo3.Lines.Add(copy(memo1.Text, j, k-j));//заносим в поле результат
    end;//}
  until j = 0;//условия цикла
end;//}