[Assistant]

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

Код:

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