[Assistant]

бежать по массиву циклом от начала до конца и проверять в цикле ar[i].Tag = чему_нужно, где ar - массив из TMemo, i - переменная цикла, как только нашли то что нужно, делать break циклу.
типо вот так:

Код:

1 2 3 4 5 6 7 8

<b>for </b>i := Low(ar) <b>to </b>High(ar) <b>do </b><b>begin </b>  <b>if </b>ar[i].Tag = 2 <font color="Navy"><i>{или что вам нужно}</i></font> <b>then </b>  <b>begin </b>    ar[i].Lines.Add(<font color="Navy">'1'</font>); <font color="Navy"><i>// добавляем в найденный Memo текст</i></font>     <b>break</b>; <font color="Navy"><i>// прерываем цикл (не тот о котором подумали некоторые, нет)</i></font>   <b>end</b>; <b>end</b>;