Попробуй сделать цикл.
Код:
For i:=1 to 1000 do
begin
s:='МДОУ №'+IntToStr(i);
n:=pos(Memo1.Text);// кажется, так ко всему тексту обращаться.
if n<>o then
s:=copy(Memo1.Text, n, Length(s)); //копируем строку
Memo2.Lines.Add(s);
end;
Код, конечно, надо оптимизировать, но вот так с ходу сообразить не могу.